Einzelnen Beitrag anzeigen

programmer021

Registriert seit: 15. Jul 2012
7 Beiträge
 
Delphi XE Architect
 
#1

Vergleich funktioniert nicht

  Alt 15. Jul 2012, 16:25
Hallo, ich hab folgendes Problem:
Ich will ein Programm in Delphi schreiben, was ein Textfeld namens "TextInput" hat.
Und da ist ein Button namens "Check".
Wenn man den Button drückt, soll (nur als Beispiel) geprüft werden, ob da "Hallo" im Textfeld steht.
Wenn ja, soll eine Meldung mit "Dir auch" angezeigt werden.
Hier ist der Code:
Delphi-Quellcode:
procedure TMainWindow.CheckClick(Sender: TObject);
begin
    if TextInput.text = 'Hallothen
  begin
         ShowMessage ('Dir auch!');
end;
end;
end.
Aber wenn ich kompiliere und auf den Button klicke, dann passiert nichts!!!


Kann mir jemand helfen?


Viele Grüße
programmer021
  Mit Zitat antworten Zitat