Mega Code Archive
Adoquery den comboya aktarma
<![CDATA[
procedure ComboDoldur(Neyi: TComboBox; Vt_Name, Alan: String);
var query: tquery;
x: integer;
stri:string;
begin
//query := qcombo;
with query do
begin
sql.Clear;
stri:='select ' + alan +' from ' + Vt_Name ;//+' group by '+alan+' order by '+ alan + ' asc';
sql.Add(stri);
open;
end;
neyi.Clear;
for x := 1 to query.RecordCount do begin
neyi.Items.Add(query.Fieldbyname(alan).AsString);
if not query.Eof then query.Next;
end;
end;
]]>