Question

delphi 中 怎么读入文本文件的内容？

提示该问答中所提及的号码未经验证，请注意甄别。

Answer 1

给你一个实例：
procedure TFormsdl1000.FormCreate(Sender: TObject);
var
MyTextFile:TextFile;
s2:string;
s1:string;
i,j,k:integer;
iMax:integer;
AObj:TRegObj;
msg:string;
//A:array[0..255] of Char;
begin
Timer1.Enabled :=false;
j:=0;
iMax:=$3C;
try
AssignFile(MyTextFile,'shao.txt');
Reset(MyTextFile);
except
messagebox(0,'对不起,可能是文件shao.txt'+#13#10#13#10+
'没有找到,就要终止本程序啦!'+#13#10#13#10+
'请与本软件的设计者【*****】联系:'+#13#10#13#10+
'电话:【0411-83636***】'+#13#10#13#10+
' 【 13500****** 】',
'提示',MB_OK+MB_ICONERROR);
Application.Terminate;
end;

try
ReadLn(MyTextFile,s2);
Finally
CloseFile(MyTextFile);
end;
end;

Answer 2

http://topic.csdn.net/t/20040402/10/2916647.html