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.