Mehrere Eingabefelder in ein array auslesen

[himitsu]

Da steht wohl in mindestens einem deiner Edits keine reine Zahl (Integer).

Eines der Edit's ist leer

Zitat:

with message ''' is not a valid

"with message ''xxx' is not a valid"
xxx = Text im Edit


Da hier gibt 0 zurück, wenn kein Text im Edit-Feld ist.
Es wird allerdings auch eine 0 zurückgegeben, wenn ein Fehler vorhanden ist (Twext ist keine ganze Zahl).

Delphi-Quellcode:

For i := 1 to 85 do
  Feld[i] := StrToIntDef(Trim(TEdit(FindComponent('Edit' + IntToStr(i))).Text), 0);

Trim( ... ) entfernt alle führenden und nachfolgenden Leerzeichen. StrToInt mekert sobald etwas anderes ausser Zahlen vorhanden ist, sei es auch nur ein Leerzeichen. ("123 ")