关于文件操作

Question

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

Answer 1

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

Answer 2

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;

Answer 3

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

Answer 4

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

Answer 5

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