String Filtern

[Ultimator]

Wenn du nachher einfach nur alle Ziffern nacheinander in nem anderen String stehen haben willst, dann mach das so (ungetestet, müsste aber funzen):

Delphi-Quellcode:

for i := 1 to length(Originalstring) do
  if OriginalString[i] in ['0'..'9'] then
    begin
      ZahlenString := ZahlenString + OriginalString[i];
      delete(OriginalString, i, 1); //Markierte Zeile
    end;

Wenn die Zahlen im OriginalString drinbeleiben sollen, dann kommentier einfahc die markierte Zeile und somit den delete-Aufruf aus

//edit i von 1 anfangen lassen zu zählen (vorher wars 0, gibt aber keinen Sinn, weil in String[0] die Längenangabe steht)