String kürzen??

[sakura]

Nicht eine, aber zwei

Delphi-Quellcode:

function StripIt(InStr: String; StripAt: Char = ' '): String;
var
  I: Integer;
begin
  I := Pos(StripAt, InStr);
  if I > 0 then
    Result := Copy(InStr, Succ(I), MaxInt)
  else
    Result := '';
end;

aufrufen mitEdit2.Text := StripIt(Edit1.Text); ......