Edit Text die richtigen Zeichen

[Davidlocke13]

So ich habe es erstmal nur aufs OnExit gepackt und funktioniert auch gleich


So und das mit dem Trim geht jetzt auch!

Delphi-Quellcode:

procedure TForm3.Edit1Change(Sender: TObject);
var
  s : string;
begin
  s:= Edit1.Text;
  s := TrimLeft(s);
  Edit1.Text := s;
end;

Danke für die Hilfe