初学dephi,50分请问怎样打开一个txt文件,写入一行文字,然后关闭文件? 是不是既可以用系统调用,又可以用类啊?如果是,两种方法请分别举个例子。谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var f:textfile;begin assignfile(f,'c:\try.txt') rewrite(f); writeln(f,'asdfasd'); closefile(f);end; procedure TForm1.Button1Click(Sender: TObject);var sl: TStringList;begin sl := TStringList.Create; sl.LoadFromFile('c:\test.txt'); sl.Insert(0, '插入一行文字'); sl.SaveToFile('c:\test.txt'); sl.Free;end; 写在最后面就不用Insert,用Add:sl.Add('插入一行文字'); C/C++里都是这样表示的:"C:\\test.txt"dephi里'\'就用'\'来表示,而不是'\\'吗? var f:textfile;begin assignfile(f,'c:\try.txt') Append(f); writeln(f,'asdfasd'); closefile(f);end; 死树的方式比较好,建议采用,用TEXTFILE老是打开是会出错 var F:TextFile;begin AssignFile(F,'c:\风过留痕.txt') Append(F); Try Writeln(f,'asdfasd'); Finally CloseFile(F); end;end; 新建就不用那句LoadFromFile,添加以后SaveToFile就行了。procedure TForm1.Button1Click(Sender: TObject);var sl: TStringList;begin sl := TStringList.Create; sl.Add('插入一行文字1'); sl.Add('插入一行文字2'); sl.Add('插入一行文字3'); sl.SaveToFile('c:\test.txt'); sl.Free;end; 同意使用sysu的方法,但是其他各位也是可以的,File的操作不只限Txt操作的,其他的文件类型也是可以的,比如自定义的文件类型 LISTVIEW 按钮关闭窗口问题。。。请帮助 哪里有透明的ScrollBox? 怎样使Edit的背景色与窗体颜色相同? 一个奇怪的现象 如何在Delphi中不连接数据库而执行SQL语句!! 关于时间处理问题?在线等待? 顺便问下大家,开发基于SNMP的网管程序,用Snmp.h提供的SNMP API好还是Winsnmp.h提供的WinSNMP API好,为什么,谢谢 怎么知道DBGrid的选中的是哪一行? 如何格式化日期????? ADO问题!!!! 根据屏幕分辨率自动调整窗体位置和大小
f:textfile;
begin
assignfile(f,'c:\try.txt')
rewrite(f);
writeln(f,'asdfasd');
closefile(f);
end;
var sl: TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile('c:\test.txt');
sl.Insert(0, '插入一行文字');
sl.SaveToFile('c:\test.txt');
sl.Free;
end;
sl.Add('插入一行文字');
f:textfile;
begin
assignfile(f,'c:\try.txt')
Append(f);
writeln(f,'asdfasd');
closefile(f);
end;
F:TextFile;
begin
AssignFile(F,'c:\风过留痕.txt')
Append(F);
Try
Writeln(f,'asdfasd');
Finally
CloseFile(F);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
begin
sl := TStringList.Create;
sl.Add('插入一行文字1');
sl.Add('插入一行文字2');
sl.Add('插入一行文字3');
sl.SaveToFile('c:\test.txt');
sl.Free;
end;