Einzelnen Beitrag anzeigen

Benutzerbild von Amnon82
Amnon82

Registriert seit: 5. Jan 2005
186 Beiträge
 
FreePascal / Lazarus
 
#1

Das 'IF AND IF THEN'-Ding

  Alt 6. Feb 2006, 23:58
Also ich hab folgendes Problem:

Ich hab 3 Edits und 3 Knöpfe. Ich möchte gerne folgendes erreichen.

Es soll in allen 3 Edits der String ':\' erscheinen erst dann sollen die 3 Knöpfe enabled sein.
Sprich wenn eine Edit ':\' nicht enthält sollen sie disabled sein.

Ich dachte an:

Delphi-Quellcode:
if pos(':\', Edit1.text) > 0 and if pos(':\', Edit2.text) > 0 and if pos(':\', Edit3.text) > 0
then
begin
Button1.enabled:=true;
Button2.enabled:=true;
Button3.enabled:=true;
end
else
Button1.enabled:=false;
Button2.enabled:=false;
Button3.enabled:=false;
end;
Aber der Code ist nicht so machbar.

Den Code wollte ich dann in alle 3 EditXChange einfügen, damit es klappt.

Natürlich gibts auch folgendes:

Delphi-Quellcode:
if pos(':\', Edit1.text) > 0 then if pos(':\', Edit2.text) > 0 then if pos(':\', Edit3.text) > 0 then
...
if pos(':\', Edit2.text) > 0 then if pos(':\', Edit3.text) > 0 then if pos(':\', Edit1.text) > 0 then
...
if pos(':\', Edit3.text) > 0 then if pos(':\', Edit1.text) > 0 then if pos(':\', Edit2.text) > 0 then
...
... oder so ähnlich damits klappt.

Aber so ne Funktion wie 'Wenn A=D und B=D und C=D dann' währe am einfachsten.
  Mit Zitat antworten Zitat