Das 'IF AND IF THEN'-Ding

[dahead]

da gibt es egtl. mehrere möglichkeiten.

1. funktion schreiben, die das für einen erledigt.

Delphi-Quellcode:

function CheckForDriveString(const aString: String): Boolean;
begin
  Result := Pos(':\', aString) > 0;
end;

procedure xxx;
var
  AllOK: Boolean;
begin
  AllOK := CheckForDriveString(Edit1.Text) and CheckForDriveString(Edit2.Text) and CheckForDriveString(Edit3.Text);
  Button1.Enabled := AllOK;
  Button2.Enabled := AllOK;
  Button3.Enabled := AllOK;
end;

2. direkt prüfen (wie du es in deinem post getan hast):

Delphi-Quellcode:

procedure xxx;
var 
  AllOK: Boolean;
begin
  AllOK := (pos(':\', Edit1.text) > 0) and (pos(':\', Edit2.text) > 0) and (pos(':\', Edit3.text) > 0);
  Button1.enabled := AllOK;
  Button2.enabled := AllOK;
  Button3.enabled := AllOK;
end;

den obigen code einmal unter Edit1OnChange eintragen. In den anderen Edits dann einfach die selbe OnChange Prozedur verwenden (also im Objektinspektor unter der Reiterseite Events/Ereignisse im Feld "OnChange" dieses auswählen).

ps: wäre schreibt man ohne h.