enthaltene Zahlen am Anfang(!) in Lisbox entfernen

[toms]

Hallo

TrimLeft() entfernt ja die Leerzeichen am Anfang des Strings.

Diese Funktion abgeändert, damit Zahlen und Leerzeichen entfernt werden:

Delphi-Quellcode:

function StripLeft(const S: string): string;
var
  I, L: Integer;
begin
  L := Length(S);
  I := 1;
  while (I <= L) and ((S[I] in ['0'..'9']) or (S[I] <= ' ')) do Inc(I);
  Result := Copy(S, I, Maxint);
end;