Das deutsche QBasic- und FreeBASIC-Forum

[C64-Fan]

die IDEdit nimmt das nicht an, warum?

[St_W]

zu 1:
Bei mir funktioniert das ohne Probleme mit FBC 0.90.1. Vielleicht hast du eine alte Compilerversion? Im obigen code fehlen dir außerdem ein Anführungszeichen und Leerzeichen in "1to4", aber ich nehme an, dass du diese Fehler im eigentlichen Code nicht gemacht hast.
Dim as String anrede(1 To 4) = {"Frau", "Herr", "Madame", "Monsieur"}


zu 2:
Jedes Mal wenn du inkey aufrufst wird ein Zeichen aus dem Tastaturpuffer zurückgegeben und gleichzeitig auch daraus entfernt. Die Zeichen gehen also verloren in deiner Variante. Dass die zweite deiner Ansicht nach funktioniert ist wohl eher ein Glücksfall. Im Allgemeinen funktioniert auch deine angebliche Lösung nicht. Richtigerweise würde man inkey nur einmal (pro Schleifendurchlauf) abfragen und das Ergebnis zwischenspeichern.
_________________
Aktuelle FreeBasic Builds, Projekte, Code-Snippets unter http://users.freebasic-portal.de/stw/
http://www.mv-lacken.at Musikverein Lacken (MV Lacken)

[C64-Fan]

ja danke ein " hat ich vergessen abzuschreiben bei Dim,

Dim Shared As String anrede(1 To 4)={"Herr","Frau","Graf","Gräfin"}

- die Fehlermeldung kommt:
FbTemp.bas(18 ) error 74: Var-len strings cannot be initialized in 'Dim Shared As String anrede(1 To 4)={"Herr","Frau","Graf","Gräfin"}'

hab Idedit 1.0.7.6c
--
Nebenfrage: wozu braucht man eigentlich die suffixe ll,$,etc wenn man doch eh alle Variablen dimensioniert? wann setzt man sie ein?
und wieso haben mache Var-typen keine suffixe, wie zb Byte,UByte,UShort und UInteger ?

------------

ja jetzt merk ichs inkey schaut nur ob "w" da ist da löscht es den Puffer. müsste aber so gehn, wenn ich inkey an a übergebe?

Dim a as string

DO : LOOP WHILE LEN(INKEY) 'Tastaturpuffer leeren
Do
a=inkey
If a = "w" Or a = "W" Then geschlecht = 1 : Exit
If a = "m" Or a = "M" Then geschlecht = 2 : Exit
Loop
' endlosschleife mit ausgang bei w/m-eingabe

trotzdem:
FbTemp.bas(6) error 214: Expected 'CONSTRUCTOR', 'DESTRUCTOR', 'DO', 'FOR', 'FUNCTION', 'OPERATOR', 'PROPERTY', 'SELECT', 'SUB' or 'WHILE' in 'If a = "w" Or a = "W" Then geschlecht = 1 : Exit'

bei:
DO : LOOP WHILE LEN(INKEY) 'Tastaturpuffer leeren
Sleep
a=InKey
If a = "w" Or a = "W" Then geschlecht = 1
If a = "m" Or a = "M" Then geschlecht = 2
gehts aber er akzeptiert jeden x-beliebigen buchstaben
_________________
Mitglied-Nr. 2000

[nemored]

Bei SHARED kannst du keine Strings variabler Länge gleich mit initialisieren. Wenn dir das wichtig wäre, müsstest du DIM SHARED AS STRING*7 nehmen (z. B.), mit möglichen anderen Problemen, die vielleicht mit Strings fester Länge auftreten.

[St_W]

[C64-Fan]

ok danke , werd eure tips beherzigen.

danke nemored, das mit dem 'exit do' hat geklappt

und shared Strings muss ich halt einzeln zuordnen, geht scho
das mit String*7 muss ich mal nachschaun.

mit dem suffixe weiss ich jetzt auch bescheid


Danke euch beiden, es läuft.
werd bestimmt bald wieder andere Probs haben
_________________
Mitglied-Nr. 2000