leerstellen in einer textbox entfernen...

[himitsu]

@Aike:
es geht auch einfacher/kürzer ... vorallem das mit dem Trim ...

Delphi-Quellcode:

  s:=trimleft(s); //Entfernt Leerzeichen am Anfang des Strings
  s:=trimright(s);  //Entfernt Leerzeichen am Ende des Strings

  s:=trim(s); //Entfernt Leerzeichen am Anfang und am Ende des Strings

Delphi-Quellcode:

procedure LeerzeichenEntfernen; 
var s:string; 
begin 
  s:=Edit1.Text; 

  while Pos('  ', s) > 0 do 
    delete(s, Pos('  ', s), 1);

  Edit1.Text:=trim(s); 
end;