Taschenrechner : ' ' ist kein Gleitkommawert

[biby90]

ich habs mit einer for schleife gemacht aber es geht irgendiwe trotzdem nicht

Delphi-Quellcode:

function TForm1.IsValidFloat(AValue1: String): Boolean;
var
  i: Integer;
begin

  Result := false;
    {
    Gegeben: String, Gesucht: Boolean}

    if AValue1 <> '' then
    begin
      for i := 0 to Length(AValue1) do
      begin
        if AValue1[i] in ['0'..'9', ','] then
          begin
            Result := true;
          end;
      end;

    end else
    begin
      ShowMessage('String ist leer.');
    end;
end;