圖1 主介面
設定tquery元件的databasename屬性設定為dbdemos，sql屬性設定為select * from country，active屬性設定為true。然後新增程式初始化**如下：
procedure tform1.formcreate(sender: tobject);
var i:integer;
tempcolumn:tlistcolumn;
tempitem:tlistitem;
begin
listview1.viewstyle:=vsreport;
for i:=0 to query1.fieldcount-1 do
begin
tempcolumn:=self.listview1.columns.add;
tempcolumn.caption:=query1.fields[i].fieldname;
end;
query1.first;
while not query1.eof do
begin
tempitem:=self.listview1.items.add;
tempitem.caption:=query1.fields[0].asstring;
for i:=1 to query1.fieldcount-1 do
begin
tempitem.subitems.add(query1.fields[i].asstring);
end;
query1.next;
end;
end;
在DELPHI中用執行緒排序
在資料處理量很大的情況下，如何在資料處理的同時響應使用者操作？windows95 98和windowsnt作為多執行緒的多工作業系統，其排程單元是執行緒，即執行緒是系統分配處理器時間資源的基本單元，所以我們可以利用執行緒實現在處理大批量資料的同時響應使用者操作。delphi作為乙個優秀的開發平台，對...
在DELPHI中用執行緒排序
在資料處理量很大的情況下，如何在資料處理的同時響應使用者操作？windows95 98和windowsnt作為多執行緒的多工作業系統，其排程單元是執行緒，即執行緒是系統分配處理器時間資源的基本單元，所以我們可以利用執行緒實現在處理大批量資料的同時響應使用者操作。delphi作為乙個優秀的開發平台，對...
delphi中用Socket取得本機的IP位址
function getlocaladdr string varszname array 0.254 of char host phostent addr in addr begin result zeromemory szname,255 if gethostname szname,255 soc...