如何读写.txt文件?

xxl8101 2003-10-20 03:29:13
高手帮帮忙,最好给详细点的代码
...全文
113 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
fhuibo 2003-10-21
  • 打赏
  • 举报
回复
function TForm1.GetNameDir(FileName: TFileName): String;
var
i : Integer;
begin
for i := length(FileName) downto 1 do
begin
if FileName[i] = '\' then
begin
Break
end;
end;
if i <= 1 then
begin
Result := GetNameDir(Application.ExeName);
end
else
begin
Result := copy(FileName,1,i);
end;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
var
FileName : TextFile;
Str,Tmp : String;
TStrList : TStringList;
i,k : Integer;
begin
TStrList := TStringList.Create;
TStrList.Clear;
if not (FileExists(GetNameDir(Application.ExeName)+'xuanhao.txt')) then
begin
Application.MessageBox('xuanhao.txt文件不存在,请先转出TXT文件','提示',MB_OK+MB_ICONSTOP);
Exit;
end;
AssignFile(FileName,GetNameDir(Application.ExeName) + 'xuanhao.txt');
Reset(FileName);
Readln(FileName,Str);
CloseFile(FileName);
xxl8101 2003-10-21
  • 打赏
  • 举报
回复
那位朋友可给我发个实例email:xxl8101@sina.com.分就全给他
joyv 2003-10-20
  • 打赏
  • 举报
回复
assignfile(文件名,路径);//讲文件与文件名关联
reset(文件名)//打开文件
read 读
readln 读一行
write 写
writeln 写一行
WWWWA 2003-10-20
  • 打赏
  • 举报
回复
Var
FList: TStringList;
tmpStr: String;
Begin
FList:= TStringList.Create;
FList.LoadFromFile('filename');
showmessage(flist[1])
guolvguolv 2003-10-20
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
BackupName: string;
FileHandle: Integer;
StringLen: Integer;
X: Integer;
Y: Integer;
begin
if SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName) then
begin
BackupName := ExtractFileName(SaveDialog1.FileName);
BackupName := ChangeFileExt(BackupName, '.BAK');
if not RenameFile(SaveDialog1.FileName, BackupName) then

raise Exception.Create('Unable to create backup file.');
end;
FileHandle := FileCreate(SaveDialog1.FileName);
{ Write out the number of rows and columns in the grid. }
FileWrite(FileHandle,
StringGrid1.ColCount, SizeOf(StringGrid1.ColCount));
FileWrite(FileHandle,
StringGrid1.RowCount, SizeOf(StringGrid1.RowCount));
for X := 0 to StringGrid1.ColCount ?1 do
begin

for Y := 0 to StringGrid1.RowCount ?1 do
begin
{ Write out the length of each string, followed by the string itself. }
StringLen := Length(StringGrid1.Cells[X,Y]);
FileWrite(FileHandle, StringLen, SizeOf(StringLen));
FileWrite(FileHandle,
StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);
end;
end;
FileClose(FileHandle);
end;

end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧