Taschenrechner : ' ' ist kein Gleitkommawert

[p80286]

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.