关于文件操作

[Justin]

读一个文件，只要遇到结束符就把结束符前面的字符串取出来，给个函数

谢谢

[Danphel]

POS() 和Copy（）

[江山易改]

Copy(memo1.lines.String,1,Pos('asdfasdf',memo1.lines.string)-1);

[李_军]

var
F: File of Char;
s: Char;
begin
AssignFIle(F,'C:\aa.txt');
Reset(F);
Seek(F, FileSize(F)-1);
read(F,Ch);
CloseFile(F);
showmessage(s);
emd;

[lynew]

memo1.lines.loadfromfile('c:\abc.txt');
s:=memo1.lines[0];
s1:=memo1.lines[1];
....

[sxzz]

ljmanage(过客)
你的代码有问题，在改改：）不光是关键字错喔！

[ly_liuyang]

s:=''; ch:=#0;
while ch<> yourTag do
begin
Read(yourfilevar,ch);
if ch<>YourTag then S:=S+ch;
end;