本文目录一览：
delphi中怎样读取txt文件的内容
text 文件最能想到的读取方式是按行以字符串的方式读取，然后对读取的串进行分解抽取你想要的东西。
如果是以空格分隔的数值数据，则可逐个数据项读取到你设定的变量或数组元素中。
.............
Delphi 怎么读取txt文档
用TextFile就可以了
var
f: TextFile;
s: string;
ts: string;
rf: TextFile;
begin
AssignFile(f, "your file path and name.txt");
AssignFile(rf, "your output file name.txt");
Reset(f);
Append(rf);
try
while not eof(f) do
readln(f, s);
ts := Copy(s, 2, 8);
if FormatDateTime("hh.mm.ss", Now - 30 / 86400) s and Pos(s, "1234567") 0 then
begin
ts := Copy(s, Pos(s, "----") + 5, Length(s));
Writeln(rf, ts);
end;
end;
finally
Close(f);
Close(rf);
end;
end;
代码没有测试，直接手打，你自己调试一下看。
DELPHI中逐行读取并复制
var
dsl,ssl :TStringList;
i :integer;
begin
if not FileExists('d:\123.txt') then
begin
ShowMessage('d:\123.txt不存在');
Exit;
end;
ssl := TStringList.Create;
dsl := TStringList.Create;
try
ssl.LoadFromFile('d:\123.txt');
for i := 0 to ssl.Count - 1 do
dsl.Add(Copy(ssl.Strings[i],1,10));
dsl.SaveToFile('d:\xyz.txt');
finally
FreeAndNil(ssl);
FreeAndNil(dsl);
end;
end;
在DELPHI中如何读取一TXT文件的一指定行文本
用Memo组件
1、打开文文本：Memo1.Lines.LoadFromFile();
2、访问某一行内容，比如取出Memo1组件第5行的内容，把它显示在Form1的标题上：
Form1.Caption
:=
Memo1.Lines.Strings[4];
