Das mit Pos ist schon ganz gut, aber wenn nur ein Backslash entfernt wird, hab ich plötzlich 3...
Gruß,
ManuMF
[EDIT]
So funktioniert es jetzt (bei OnChange):
Delphi-Quellcode:
if (Pos('\\', AddFeld.Text) = 0) then
begin
if (Pos('\', AddFeld.Text) = 0) then
AddFeld.Text := '\\' + AddFeld.Text
else
AddFeld.Text := '\' + AddFeld.Text;
end;
[/EDIT]