只是显示数据的话你可以用TlistView var list :TListItem begin Query.sql.clear; Query.sql.text := 'seclect ****'; Query.sql.open; Query.first; while not Query.eof begin List := ListVew1.item.add List.caption := CurrToStrf(Query.fieldbyName('money').ascurrency,ffcurrency,2); Query.next; end; end;
var list :TListItem
begin
Query.sql.clear;
Query.sql.text := 'seclect ****';
Query.sql.open;
Query.first;
while not Query.eof
begin
List := ListVew1.item.add
List.caption := CurrToStrf(Query.fieldbyName('money').ascurrency,ffcurrency,2);
Query.next; end;
end;
我是这样做的,
将字段添加到ADOTABLE,或ADOQUERY中去,然后将其Currency属性设为TRUE