Ich verstehe was Du meinst, da wird es schnell chaotisch.
Na dann Fragen wir doch mal den TE ob 1000'er Markierungen überhaupt vorliegen.
So hier könnte man testen ob eine Konvertierung gelingt bevor man es konvertiert:
Code:
funtion TestFloatStr ( S : String ) : Boolean;
begin
try
StrToFloat(s); // normal aufrufen
result := true; // scheint keine
Exception auszulösen also ist Wert gut
except
result := false; //
oh-
oh, fehler!
end;
end;