function getlocaladdr: string;
varszname: array [0..254] of char;
host: phostent;
addr: in_addr;
begin
result := '';
zeromemory(@szname, 255);
if gethostname(szname, 255) <> socket_error then
begin
host := gethostbyname(szname);
if host.h_addr_list^ <> nil then
begin
movememory(@addr, host.h_addr_list^,4);
result := inet_ntoa(addr);
end;
end;
end;
在DELPHI中用執行緒排序
在資料處理量很大的情況下，如何在資料處理的同時響應使用者操作？windows95 98和windowsnt作為多執行緒的多工作業系統，其排程單元是執行緒，即執行緒是系統分配處理器時間資源的基本單元，所以我們可以利用執行緒實現在處理大批量資料的同時響應使用者操作。delphi作為乙個優秀的開發平台，對...
在DELPHI中用執行緒排序
在資料處理量很大的情況下，如何在資料處理的同時響應使用者操作？windows95 98和windowsnt作為多執行緒的多工作業系統，其排程單元是執行緒，即執行緒是系統分配處理器時間資源的基本單元，所以我們可以利用執行緒實現在處理大批量資料的同時響應使用者操作。delphi作為乙個優秀的開發平台，對...
Delphi中用TListView顯示資料庫資料
圖1 主介面 設定tquery元件的databasename屬性設定為dbdemos，sql屬性設定為select from country，active屬性設定為true。然後新增程式初始化 如下 procedure tform1.formcreate sender tobject var i i...