Hallo Delphi Leute
ich bin Schueler an der Fachober und soll ein rogramm schreiben das die Eingabe überprüft und nur Buchstaben zulässt das ist es :
Delphi-Quellcode:
procedure TForm1.btn_PruefenClick(Sender: TObject);
var Eingabe : string;
i,
Stringlänge : integer;
Überprüfungsarray : array of char;
Falsch,
Richtig : Boolean;
begin
Eingabe := edtEingabe.Text;
Stringlänge :=Length(Eingabe);
SetLength(Überprüfungsarray,Stringlänge);
for I := 0 to Stringlänge-1 do
begin
Überprüfungsarray[i]:= Eingabe[i];
if Überprüfungsarray[i] in ['a'..'z','A'..'Z'] then
begin
Richtig:=true;
end
else
Falsch :=true;
end;
if Falsch = true then
begin
MessageDlg('Fehlerhafte Eingabe nur Buchstaben',mtError,mbOKCancel,0);
MessageDlg(IntToStr(Stringlänge),mtInformation,mbOKCancel,0);
edtEingabe.Clear;
end;
if Richtig = true then
begin
MessageDlg('Eingabe correct',mtInformation,mbOKCancel,0);
edtEingabe.Clear;
end;
end;
end.
er erkennt wenn man eine falsche eingabe macht richtig allerdings wenn ich nur buchstaben benutze sagt er richtig und dann nochmal falsch ... könnt ihr mir da weiterhelfen
Gruß Epytir