Hallo liebe Community, ich habe folgendes Problem:
Habe heute in C++ ein Programm geschrieben welches einen String vom Benutzer abfragt, diesen dann darauf überprüft ob er nur aus Ziffern und Buchstaben besteht und mir dann ggf. einen Text ausgibt ob der String nur aus Ziffern und Buchstaben besteht oder eben nicht. Dieses Programm wollte ich dann auch in Lazarus nachschreiben, bekomme es aber einfach nicht hin.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29:
| uses SysUtils;
function isAlpha(AString: String): Boolean; Var c : Char; begin if not (c in ['A'..'Z', '0'..'9']) then begin writeln('Die Zeichenkette enthaelt nur Ziffern und Buchstaben!'); end else begin writeln('Die Zeichenkette enthaelt NICHT nur Ziffern und Buchstaben!'); end; Result := True; end; Var AString : String; AString2 : Boolean; begin writeln('Funktion Zeichenkette'); writeln('----------------------'); writeln; write('Zeichenkette eingeben: '); readln(AString); AString2 := isAlpha(AString); writeln(AString2); readln; end. |
Aber irgendwie gibt er mir immer nur aus, dass der String nur aus Ziffern und Buchstaben besteht, egal was ich eingebe.
Moderiert von Narses: Code- durch Delphi-Tags ersetzt