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;