delphi 中使用文件流

result:=''; if Trim(txt)='' then exit; txtList:=TStringList.Create; srcList:=TStringList.Create; srcList.Text:=src; st:=ExtractFileDir(FileName); //取执行目录 sFileName:=ExtractFileName(FileName); i:=AnsiPos('.',sFileName); if i>0 then begin SetLength(sFileName,i-1); //保存文件名备用。 end; if FileExists(st+'/'+sFileName+'_out.txt') then begin Trace:=TFileStream.Create(st+'/'+sFileName+'_out.txt',fmOpenReadWrite+fmShareDenyNone); //打开输出文件 end else begin Trace:=TFileStream.Create(st+'/'+sFileName+'_out.txt',fmCreate); //打开输出文件 end; Trace.Seek(0,soFromEnd); if FileExists(st+'/'+sFileName+'_found.txt') then begin found:=TFileStream.Create(st+'/'+sFileName+'_found.txt',fmOpenReadWrite+fmShareDenyNone); //打开找到文件 end else begin found:=TFileStream.Create(st+'/'+sFileName+'_found.txt',fmCreate); //打开找到文件 end; found.Seek(0,soFromEnd); if FileExists(st+'/'+sFileName+'_no_found.txt') then begin nofound:=TFileStream.Create(st+'/'+sFileName+'_no_found.txt',fmOpenReadWrite+fmShareDenyNone);//打开未找到文件 end else begin nofound:=TFileStream.Create(st+'/'+sFileName+'_no_found.txt',fmCreate);//打开未找到文件 end; nofound.Seek(0,soFromEnd);

 

其实，对于简单的文本文件，我还是学惯于使用Pascal的古老方式：

 

aFile:TextFile;

AssignFile(aFile,'afilename.txt');

rewrite(aFile);  //或者  reset(aFile);

writeln(aFile,'aString');  //write(aFile,'Astring');

//readln(aFile,st);//read(aFile,st);

CloseFile(aFile);

 

这是由于其读一行，写一行的方便性。

s