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