10-13-2021, 10:41 AM
We use this code for filling (identical in both versions):
AComboBox.Items.Clear;
AComboBox.ItemIndex:=-1;
AComboBox.ItemsHaveValues:=true;
Q.Open;
while not Q.Eof do begin
AComboBox.ItemIndex:=AComboBox.Items.Add ( Q.FieldByName('ST').AsString + AComboBox.Items.NameValueSeparator + Q.FieldByName('ID').AsString);
Q.Next;
end;
Q.Close;
T.Commit;
It works correctly with version 15.2.36 (see attachment)!
AComboBox.Items.Clear;
AComboBox.ItemIndex:=-1;
AComboBox.ItemsHaveValues:=true;
Q.Open;
while not Q.Eof do begin
AComboBox.ItemIndex:=AComboBox.Items.Add ( Q.FieldByName('ST').AsString + AComboBox.Items.NameValueSeparator + Q.FieldByName('ID').AsString);
Q.Next;
end;
Q.Close;
T.Commit;
It works correctly with version 15.2.36 (see attachment)!
The way to success is always under construction ... but i see a light at the end of the tunnel