Hallo Zusammen,
ich stehe gerade irgendwie auf dem Schlauch.
Ihr könnt mir sicherlich helfen.
ich erzeuge mit folgendem Code meine dynamische Anzahl von Editfelder über ein Array.
Delphi-Quellcode:
for n := 0 to high(Mydata) - 1 do begin
{Panel malen}
NewPanel := TJvPanel.Create(BOT_BEST_PANEL);
with NewPanel do begin
{Positionierung im Grid}
BoundsRect := AlignGrid.CellRect(mydata[n].row,mydata[n].col);
Width := intPanelWidth;
Height := intPanelHeight;
Parent := AlignGrid;
ParentBackground := true;
FlatBorder := true;
end;
{Edit malen}
NewEdit := TEditX.Create(NewPanel);
with NewEdit do begin
Top := EDITYPOS;
Left := EDITXPOS;
Width := EDITWidth;
Height := EDITHeight;
Parent := NewPanel;
ActiveColor := $00FEEFDD;
minvalue := mydata[n].minValue;
maxvalue := mydata[n].maxValue;
showhint := true;
hint := 'Minimum: '+ floattostr(minvalue) +#13#10+'Maximun: '+floattostr(maxvalue);
digits := mydata[n].digits;
Datatype := deFloat;
docheckRange := true;
doformatValue := true;
Editlabel.Caption := mydata[n].caption;
text := FloatToStr(mydata[n].default);
OnOutOfRange := MyOutOfRange;
end;
Soweit so gut. Nun stellt sich für mich gerade die spontane Frage, wie ich die Daten, die der User dann in die Edit Felder eingibt, wieder in einem Array einsammle.
Jemand eine Idee?
Danke