Custom Form: SetVarContent dynamisch befüllen?
Verfasst: Mi Mär 13, 2019 9:55 am
Guten Tag,
ich habe ein Problem bezüglich das befüllen einer Variable mit mehreren Werten.
Ähnlich wie in Ihrem Beispiel zur Custom Form habe ich mir eine Liste aus der Datenbank auslesen lassen und mit diesen eine CheckBoxList befüllt.
Die Liste hat am ende ca 300 Einträge.
Nun möchte ich eine Variable mit den Werten befüllen die angekreuzt sind.
Problem hierbei ist, dass nur der letzte angekreuzte Wert in die Variable geschrieben wird.
Ist es möglich das Problem über SetVarContent zu lösen?
Danke im Voraus
Lukas Stelter
Hier mein Ansatz:
ich habe ein Problem bezüglich das befüllen einer Variable mit mehreren Werten.
Ähnlich wie in Ihrem Beispiel zur Custom Form habe ich mir eine Liste aus der Datenbank auslesen lassen und mit diesen eine CheckBoxList befüllt.
Die Liste hat am ende ca 300 Einträge.
Nun möchte ich eine Variable mit den Werten befüllen die angekreuzt sind.
Problem hierbei ist, dass nur der letzte angekreuzte Wert in die Variable geschrieben wird.
Ist es möglich das Problem über SetVarContent zu lösen?
Danke im Voraus
Lukas Stelter
Hier mein Ansatz:
Code: Alles auswählen
procedure OkButtonClick(Sender: TObject);
var
i: integer;
begin
for i:=0 to CheckListBox1.Items.Count-1 do
if (CheckListBox1.Checked[i] = True) then
begin
[b]SetVarContent('VARIABLE1', CheckListBox1.Items[i] + '=' + inttostr(CheckListBox1.Checked[i]));
end;
CloseForm(0);
end;