Nur Zahlen aus einem String zulassen

[Klaus01]

Da das ganze ein Funktion sein soll,
sollte diese auch etwas zurückgeben.

Delphi-Quellcode:

function OnlyNumbersInString (const aValue : String) : String; 
var 
  i: integer; 
  aChars : TSetofChars; 
begin 
  aChars := ['0'..'9']; 
  result :='';
  for i := 1 to Length(aValue) do 
  begin 
    if (aValue[i] in aChars) then 
    begin 
      result := result + aValue[i]; 
    end; 
  end; 
end;

.. dann kannst Du das const in der Parameterlist auch
stehen lassen.

Grüße
Klus