假设我的txt文件中是这样的:
001 000000000 003
002 000000000 002
003 000000000 006我希望先读一行,处理完后再接着读出下一行,直到结束,不知如何实现?
001 000000000 003
002 000000000 002
003 000000000 006我希望先读一行,处理完后再接着读出下一行,直到结束,不知如何实现?
解决方案 »
- delphi程序运行后“File not found acDBTextFx”,请问是缺少什么样的第三方控件?
- 批量插入数据时,如何添加凭证号?
- 生个儿子你还让他作程序员吗?
- 各位进来看看为何我用Socket向客户端发送的是乱码呢????????????????????
- Delphi7与.net
- ●给定两个日期如:20020101,20020202 ,如何获得两个日期间的间隔天数???????
- C++Builder转Delphi
- 有没办法将很大的class拆分放在多个pas文件里面
- 请教大家一个财务问题,期初记账是什么意思?有谁能回答吗?
- 我有两个问题,是使用MShtml时遇到的
- 各位看看,绑定的问题
- 如何获得不停刷新的网页的内容?急!
var
i:integer;
begin
for i:=0 to form1.Memo1.Lines.Count-1 do
begin
showmessage(memo1.lines.Strings[i]);
end;
end;
用法:
var
F: TextFile;
Temp_Str: String;
begin
Assign(F, 'demo.txt');
Reset(var F );
repeat
Readln(F, TempStr); // 读一行到换行符
until Eof(F); // 文件结束
end;
aa:tstringlist;
......创建.....
for i:=0 to aa.count-1 do
begin
在这内容中你可以分解中每一项的字符串了,然后就可以把分解出的字符串放到不同的字符中
end;
f:textfile;
assignfile(f,'路径');
readln()
搞定
MyTextFile: TextFile;
s : string;
begin
AssignFile(MyTextFile,fileDir.Text+fileName.Text);
Reset(MyTextFile);
while not eof(MyTextFile) do
begin
readln(MyTextFile,s);
mFile.Lines.Add(s)
end;
CloseFile(MyTextFile);