Hilfe string kontrolle missglückt

[Neutral General]

Hallo,

Du brauchst nicht beide Variablen "Richtig" und "Falsch"! Wenns "falsch" ist, dann setzt du "Richtig" einfach auf "false". Aber du machst es auch verdammt kompliziert. Einfacher geht es so:

Delphi-Quellcode:

procedure TForm1.btn_PruefenClick(Sender: TObject);
var Eingabe: String;
begin
  Eingabe := edtEingabe.Text;
  
  OK := true;
  for i:= 1 to Length(Eingabe) do
  begin
    if not (Eingabe[i] in ['a'..'z','A'..'Z']) then
    begin
      OK := false;
      break;
    end;
  end;

  if OK then
    MessageDlg('Eingabe korrekt',mtInformation,mbOKCancel,0)
  else
    MessageDlg('Fehlerhafte Eingabe nur Buchstaben',mtError,mbOKCancel,0);

  edtEingabe.Clear;
end;