Stringfunktionen

[daywalker9]

Delphi-Quellcode:

for I := 1 to Length(Zeile) do
begin
  if (Zeile[I] in ['0'..'9']) do
     Result := Result + Zeile[i];
end;

Zeile Zeichen für Zeichen durchgehen und alles was numerisch ist sammeln