Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.177 Beiträge
 
Delphi 12 Athens
 
#25

Re: Leerzeichen aus dem String löschen ?

  Alt 23. Jul 2009, 18:28
nicht?
ich dachte des war so

(und ja, ich verwende 'ne eigene Lib)

[add]
hatte doch Recht
<= ' '
entfernt Leerzeichen und alle Steuerzeichen im Bereich von #0 bis #32
Delphi-Quellcode:
function Trim(const S: string): string;
var
  I, L: Integer;
begin
  L := Length(S);
  I := 1;
  while (I <= L) and (S[I] <= ' ') do Inc(I);
  if I > L then Result := 'else
  begin
    while S[L] <= ' do Dec(L);
    Result := Copy(S, I, L - I + 1);
  end;
end;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat