If-Klausel beim Editfeld

[DeddyH]

Bitte nutze künftig die Delphi-Tags für Quellcode, dann ist dieser besser zu lesen (über dem Eingabefenster unter "Oft genutzt"). Zu Deinem Problem:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  b : Boolean;
  i,k,m : Integer;
begin
  if Edit1.Text = '23' then //Vergleich mit "=", nicht ":="
    ShowMessage('Die Eingabe 23 ist richtig!') //hier kein Semikolon
  else
    ShowMessage('Gib bitte etwas anderes ein!');
end;