TEdit nicht richtig ausgelesen, String bleibt leer

[WhatATime]

Hallo zusammen,

bin gerade ratlos und meine Suche bringt mich auch nicht weiter.
Ich möchte ganz einfach aus verschiedenen TEdit Feldern die Werte auslesen.

Code:

procedure TForm1.GetEditValues;
var
  aDoubleValue1, aDoubleValue2: Double;
  aIntValue: Integer;
begin

  // Stuff passiert hier...

  aDoubleValue1 := StrToFloat(Edit_Double_y.Text);  // kein Problem
  aDoubleValue2 := StrToFloat(Edit_Double_x.Text);  // kein Problem
  aIntValue := StrToInt(Edit_Int.Text);             // Problem

  //  Stuff passiert hier...

end;

Der String, der aus Edit_Int gelesen werden soll, ist aber jedes mal leer,
weshalb bei der Umwandlung in einen Integer natürlich ein Fehler auftritt.

Darum frage ich mich, warum der String denn leer sein sollte? Alle TEdits sind gefüllt.
Ich komm einfach nicht darauf.

Hat jemand eine Idee? Danke für eure Hilfe!

[Moombas]

Ist das, was im Edit steht denn auch wirklich ein String der einem Integer entspricht?

[philipp.hofmann]

Generell ist es keine gute Idee, StrToInt oder StrToFloat ohne vorherige Prüfung des Inhaltes durchzuführen. Da kann man dann auch immer den aktuellen Inhalt des Text-Feldes ausgeben. Damit kann man dann auch z.B. Buchstaben eintragen, um zu sehen, ob man im richtigen Feld ist, die Prüfung also die Buchstaben ausgibt.

Selbst wenn man daran denkt, dass man bei KeyDown nur Zahlen und das Dezimalzeichen durchlässt, kann dann jemand per Copy&Paste wieder einen ungültigen Inhalt in das Feld schreiben (was man natürlich auch abfangen kann, aber eben nur als Beispiel, an was man ohne Prüfung alles denken muss).

[stifflersmom]

Da der abgebildete Code, abgesehen von der schon angesprochenen Absicherung, generell in Ordnung ist, kann der Fehler nur im Rest Deines Programmes liegen.
Zeig doch mal den gesamten Code.

[Moombas]

Zitat von stifflersmom:

Da der abgebildete Code, abgesehen von der schon angesprochenen Absicherung, generell in Ordnung ist, kann der Fehler nur im Rest Deines Programmes liegen.
Zeig doch mal den gesamten Code.

Ich vermute eher falschen Inhalt.

[himitsu]

[Info] Es reicht bestimmt, wenn man das Problem zentral nur einem Thread lösen würde?

https://www.delphipraxis.net/205016-...eibt-leer.html