Is this a bug or am I doing something wrong?
ConstDBCB.Items.Clear;
GenQuery.SQL.Text := 'select constidx from const order by constidx ' +
'Desc;';
GenQuery.Active := True;
GenQuery.First;
If GenQuery.RecordCount > 0 Then
Repeat
ConstDBCB.Items.Add(GenQuery.FieldByName('ConstIdx').AsString);
GenQuery.Next;
Until GenQuery.Eof;
GenQuery.Active := False;
ConstDBCB is a tdbCombobox.
Every time this is ran, the text value(table value) is replaced with the
last value loaded into the itemslist. This has never given me any
trouble under Delphi!
ConstDBCB is a tdbCombobox.
GenQuery is a Query object to a PostgreSQL table.
I am running FC4, Lazarus 0.9.18
--
Terry A Haimann <[EMAIL PROTECTED]>
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
