Zitat von
"Superwinger:
Geht net sowas wie das?
Delphi-Quellcode:
if(KLICK)then
Edit1.Text := 'Hallo';
if(KLICK)then
Edit1.Text := 'Blah';
if(KLICK)then
Edit1.Text := '...';
if(KLICK)then
Edit1.Text := 'Tschüs';
...
Prinzipiell geht das, wenn KLICK einen boolschen Wert zurückgibt.
Das hilft Dir hier aber nicht weiter, da die Bedingung in jeder Zeile WAHR bleibt.
Es würde also immer 'Tschüs' in Dein Edit-Feld geschrieben.
Ich denke die eleganteste Lösung hat dir bis jetzt alzaimar angeboten.
Gruß
Thomas