MakeNumeric statt isNumeric

[Gustav.R]

function MakeNumeric(Str: string): string;
var I: Integer;
s: string;
begin
s := '';
for i := 1 to Length(Str) do
begin
if str[i] in ['0'..'9', ','] then
s := s + str[i];
end;
Result := s;
end;

Der String wird an MakeNumeric bei mir nach einem
Str := StringReplace(Str, '.', ',', [rfReplaceAll]);
übergeben.

Zweck des Unfugs:
Zwei Strings (die "Zahlen" enthalten) miteinander vergleichen...

HTH

LG
Gustav