versuch es doch mal so:
Delphi-Quellcode:
function TForm1.IsValidFloat(AValue1: String): Boolean;
var
i: Integer;
begin
Result := false;
{
Gegeben: String, Gesucht: Boolean}
if AValue1 <> '' then
begin
result := true;
for i := 1 to Length(AValue1) do
if AValue1[i] not in ['0'..'9', ','] then
Result := false;
end else
begin
ShowMessage('String ist leer.');
end;
end;
Gruß
K-H
Edith:
Erst zu langsam, dann auch noch vertippt.