delphi 中使用文件流

最新推荐文章于 2021-03-11 10:24:48 发布

原创最新推荐文章于 2021-03-11 10:24:48 发布 · 1.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #pascal

本文介绍了一种使用Pascal语言进行文本文件操作的方法，包括创建、读取和写入等基本操作。通过示例展示了如何打开文件、写入数据及关闭文件等步骤。

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);

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