"" ist kein gültiger Gleitkommawert

[Zackzack]

Hallo,
folgendes Problem ich will über ein StringGrid Werte eingeben und sie dann einfach in ein Array schreiben.
Wenn ich nun Werte in die Oberfläche eintippe bekomme ich als Fehler " ist kein gültiger Gleitkommawert ".
Ich habe zuvor auch alle Zellen mit null belegt damit kein leerer String übergeben wird. Habe keine Ahnung wo
der Fehler liegt. Und überhaupt gehe ich da richtig ran?
Wär nett wenn ihr mir helfen könntet danke schon mal vor ab!

Hier der Code:

procedure TX_AUTO.StringGrid1Enter(Sender: TObject);
begin
repeat
internal_DebSoll[b] := StrToFloat(StringGrid1.Cells[1,b]);
b:= b + 1
until b = internal_DebRow[1];

end;

[himitsu]

Wo ist b deklariert?
Und an deiner Stelle würde ich im Debugger mal nachsehn, welchen Wert b dort hat und was dann in der angegebenen Zelle drinsteht, bzw. ob es diese Zelle überhaupt gibt.

[DeddyH]

Hallo und Willkommen in der DP :dp:,

ich verstehe zwar den Sinn Deiner Schleife nicht, aber was passiert, wenn Du statt StrToFloat StrToFloatDef oder TryStrToFloat verwendest? Wenn 0 die Vorgabe sein soll, würde sich eher StrToFloatDef anbieten.

[himitsu]

@DeddyH:
Das unterdrückt zwar die Fehlermeldung, aber nicht die Ursache.
Wenn er wirklich alle entsprechenden Felder/Zellen mit 0 belegt hat, dann greift er hier ja vermutlich auf ein "falsches" Feld zu.

[Zackzack]

b wird vom Benutzer definiert er kann entscheiden wieviel zeilen es gibt.
Er fragt dann nach jedem Enter halt alle positionen ab und schreib sie in das Array. So war zumindestens die Idee^^
Try und Def klappen auch nicht da meint er das es keine überladene Version gibt.

[DeddyH]

Nochmal: der Benutzer sagt z.B. b = 100, und Du erstellst dann 100 Zeilen und belegst die 2. Spalte mit 0 vor? Dann kannst Du doch auch direkt auf die Zelle zugreifen und brauchst keine Schleife.

[ConnorMcLeod]

Beim Eintippen wird der vorhandene Wert gelöscht und durch den getippten Wert ersetzt. Nach dem Löschen (und vor dem Ersetzen) steht kurzfristig ein Leerstring drin. Dieser erzeugt den Fehler beim Versuch, das in eine Zahl umzuwandeln.

Also:

Delphi-Quellcode:

if ('' = StringGrid1.Cells[1,b]) then
begin
  ... := 0;
end
else
begin
  ... := StrToFloat(StringGrid1.Cells[1,b]);
end;

[DeddyH]

Oder eben kürzer mit StrToFloatDef (wobei ich mir nicht sicher bin, ob es das unter Delphi 5 schon gab).

[Satty67]

Wie DeddyH vorgeschlagen hat:

StrToIntDef gibt es ab Delphi 5 (ziemlich sicher) und sollte das Problem mit Vorgabewert 0 lösen oder gleich eine leere Zelle mit 0 füllen.

€: geht ja um Floats... bei StrToFloatDef bin ich mir aber schon wieder unsicher? Aber F1 sollte das klären...

Delphi-Quellcode:

function StrToFloatDef(AString : String; Default : Double) : Double;
begin
  try
    Result := StrToFloat(AString);
  except
    Result := Default; // evtl. nur EConvertError abfangen
  end;
end;

In den neueren Delphi Versionen ist das besser gelöst, da es in der IDE keine Exception wirft, weis aber gerade nicht wie ;)

[Zackzack]

So es läuft alles ! StrToFloatDef war es dann am Ende!
Danke für die schnelle Hilfe!
:thumb: