Pfadangaben automatisch anpassen

[thomasdrewermann]

Test mal:

Code:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then
if edit1.Text[length(edit1.text)]='\' then
  begin
    edit2.text:=edit1.text+'hilfe';
    edit3.text:=edit1.text+'graphic';
    edit4.text:=edit1.Text+'sonstige';
  end else
  begin
    edit2.text:=edit1.text+'\hilfe';
    edit3.text:=edit1.text+'\graphic';
    edit4.text:=edit1.text+'\sonstige';
  end;
end;

Bei dieser Lösung ist Vorraussetzung, dass edit1-edit4 vorhanden sind. Wenn man jetzt in Edit1 etwas einsetzt, werden die anderen 3 Feldern angepasst. einfach diese Funktion in den Quelltext kopieren und in den Ereignissen bei Edit1.Change auswählen.


MFG
Thomas