delphiado讀取文本文件

❶ Delphi ado方式連接csv文件,提示內存不足.

不知道delphi讀取純文本文件是怎麼管理內存的（對csv的大小應該是有限制的！），從你運行程序的表現看，它試圖裝入整個csv，而不是採用資料庫的緩沖存取方式。

建議將csv轉換為dbf或者別的類型的資料庫表，再對其進行操作。

❷ 誰知道DELPHI程序中讀取*.ini或文本文件內容的代碼

{*******************************
*將主機信息保存在一個配置文件中*
*******************************}
procere TFTPManageForm.SaveFTPHostInfo;
var
ServerIni: TIniFile;
begin
ServerIni := TIniFile.Create(Business.System.JSCommon.MolePath + 'vb60.ini');
ServerIni.WriteString('Server', 'FT',Code.EncryptString('haier',EditHost.Text));
ServerIni.WriteString('Server', 'US',Code.EncryptString('haier',EditUserName.Text));
ServerIni.WriteString('Server', 'PA',Code.EncryptString('haier',EditPassWord.Text));
ServerIni.WriteString('Server', 'PR',Code.EncryptString('haier',EditPort.Text));
ServerIni.UpdateFile;
ServerIni.Free;
end;
{*******************************
****獲取配置文件中的主機信息****
*******************************}
procere TFTPManageForm.GetHostInfo;
var
ServerIni: TIniFile;
begin
ServerIni := TIniFile.Create(Business.System.JSCommon.MolePath + 'vb60.ini');
EditHost.Text:=Code.DecryptString('haier',ServerIni.ReadString('Server', 'FT', 'FT'));
EditUserName.Text:=Code.DecryptString('haier',ServerIni.ReadString('Server','US','US'));
EditPassWord.Text:=Code.DecryptString('haier',ServerIni.ReadString('Server','PA','PA'));
if not ServerIni.ReadString('Server','PR','PR').Equals('')then
EditPort.Text:=Code.DecryptString('haier',ServerIni.ReadString('Server','PR','PR'));
ServerIni.Free;
end;
補充一個：Code.EncryptString和Code.DecryptString是加密和解密

❸ 急求！delphi中用Adoquery過濾後,再從Dbgrid提取數據

A方案：直接2次查不好么？
B方案：ado1.sql....
ado2.sql.text := select XXX from (ado1.sql.text) as aaa where XXX
把ado1 sql語句當成一個視圖來用吧，數據量大，會慢。
C方案：遍歷grid,把不符合的篩掉。
-------------------------------------
完畢，希望對你有幫助

❹ 如何用Delphi把文本文件中的數據寫入到資料庫中

讀取文本文件中的字元串，可以使用 TStrings 及其派生的類（如 TStringList 等）：

procereTForm1.Button1Click(Sender:TObject);
vartxt:TStringList;
begin
//讀取文本文件中的內數據
txt:=TStringList.Create;
txt.LoadFromFile('e:	est.txt');

//欄位賦值，將容數據寫入資料庫
ADOTable1.Append;
ADOTable1.FieldByName('欄位名').AsString:=txt.Text;
ADOTable1.Post;

txt.Free;
end;