var
FileNote:TStrings;
begin
FileNote:=TStringList.Create;
FileNote.LoadFromFile('C:\YourFile.txt');
showMessage('文件的第一行:'+FileNote[0]);
FileNote.Free;
end;
FileNote:TStrings;
begin
FileNote:=TStringList.Create;
FileNote.LoadFromFile('C:\YourFile.txt');
showMessage('文件的第一行:'+FileNote[0]);
FileNote.Free;
end;
reset(f)打开文本文件,后用
read(f,tmpstring)读到tmpstring字符变量中即可!或readln读一行