Taschenrechner : ' ' ist kein Gleitkommawert

[Ric]

Danke für eure antworten,

hab jetzt rausbekommen woran es lag

 if edit1.Text = '' then exit; Diese umwandlung war richtig, aber falsch positioniert.

[himitsu]

Zitat von Ric:

if edit1.Text = '' then ... Diese umwandlung war richtig,

Was für eine Umwandlung?

Tipp: Gib mal irgendwo ein Leerzeichen, einen Buchstaben oder einen zweiten Punkt in dein Edit ein.

[Ric]

Es hat alles prima geklappt, erscheint auch keine Fehlermeldung mehr
So sieht das jetzt aus

Delphi-Quellcode:

procedure TForm1.btn_malClick(Sender: TObject);
begin
  if   edit1.Text = '' then exit;
  opperator := '*';
  if  zwischenergebnis = 0  then
  begin
    try
      zwischenergebnis := strtofloat(edit1.text);
    except
      zwischenergebnis := 0;
    end;
    edit1.Text := '';
  end
  else
  begin
      edit1.Text  := FloatToStr(zwischenergebnis * strtofloat(edit1.text));
      zwischenergebnis := StrToFloat(edit1.text);
      oppbool := true;
  end;
end;

[himitsu]

Zitat:

erscheint auch keine Fehlermeldung mehr

Hast du dir alle Beiträge durchgelesen?

[DeddyH]

Anscheinend nicht. Aber die erste Abfrage lässt sich ja beliebig erweitern.

Delphi-Quellcode:

if (Edit1.Text = '') or (Edit1.Text = ' ') or (Edit1.Text = 'A') or (Edit1.Text = 'a') 
{...} or (Edit1.Text = 'Meine Fresse, was so alles in einem String stehen kann') then exit;

[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;

[DeddyH]

Natürlich nicht, denn das Result wird ja auf true gesetzt, sobald auch nur ein einziges Zeichen gültig ist. Du musst es genau anders herum machen.

[biby90]

sonst ist es so richtig? weil wenn ich true und false vertausche klappts immer noch nicht
oder ich bin einfach zu blöd.. blond eben

[himitsu]

Delphi-Quellcode:

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

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

    if AValue1 <> '' then
    begin
      for i := 1 to Length(AValue1) do  // Strings beginnen bei 1 !!!
      begin
        if not (AValue1[i] in ['0'..'9', ',']) then
          begin
            Result := false;
            Exit; // das Ergebnis steht fest, also kann man mit Exit oder Break die Bearbeitung auch abbrechen
          end;
      end;
    end else
    begin
      ShowMessage('String ist leer.');
      Result := false;
    end;
end;

Aber wozu der Aufwand?

Es gibt fertige Funktionen, um sowas zu prüfen.

TryStrToFloat
StrToFloatDef
Val (das sagt einem sogar wo der Fehler steckt)

PS: Das Komma ist nicht immer das Dezimaltrennzeichen. (die Amis nutzen z.B. den Punkt dafür)
DecimalSeparator

Deine Funktion erlaubt auch noch mehrere Kommas oder das Weglassen des Vorkomma- und/oder Nachkommaanteils.
Wenn man schon eine manuelle Syntakprüfung machen möchte, dann doch besser richtig prüfen, denn sonst bringt das Ganze ja nichts, da es später dennoch knallen kann.

Zitat:

Strings beginnen bei 1

Ich rate dir dringend mal, in den Projektoptionen, die Indexprüfung zu aktivieren. (eventuell auch mal probehalber die Überlaufprüfung)

[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.