一个关于“文本文件”的问题——————在线等待啊 ！！！！
大家好：
我用Delphi做了一个www.exe 程序，我想在www.exe所在的目录下面用代码创建一个aaa.txt文本文件，每次运行www.exe程序时把aaa.txt里的内容载入到www.exe程序里的memo1中，每次关闭www.exe程序是自动把memo1中的内容保存到aaa.txt 中请问
这样做可以吗？？/
如果可以的话请问怎么做啊？？/我还是第一次做有关的文件问题的啊不知道如何是好 请大家帮忙好吗/？？
问题点数：100、回复次数：16Top
1 楼weizi2000（秋风啊）回复于 2004-04-01 11:53:38 得分 0
打开时：
if FileExists(fName) then
Memo1.Lines.LoadFromFile(fName);
关闭时：
if FileExists(fName) then
Memo1.Lines.SaveToFile(fName);Top
2 楼weizi2000（秋风啊）回复于 2004-04-01 12:00:06 得分 0
var
fName: string;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
fName := ExtractFilePath(Application.ExeName) + 'aaa.txt';
if not FileExists(fName) then FileCreate(fName);
end;Top
3 楼weizi2000（秋风啊）回复于 2004-04-01 12:02:02 得分 0
procedure TForm1.FormShow(Sender: TObject);
begin
if FileExists(fName) then
Memo1.Lines.LoadFromFile(fName);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if FileExists(fName) then
Memo1.Lines.SaveToFile(fName);
end;Top
4 楼ln521（*逃课小王子*）回复于 2004-04-01 12:06:44 得分 0
啊都答出来了
总之就是SAVETOFILE（）和LOADFROMFILE（）的应用，
多看看书Top
5 楼lianshaohua（永远深爱一个叫“...”的好女孩儿!）回复于 2004-04-01 12:07:47 得分 0
proceudre Tform1.create(sender:Tobject);
begin
if fileexists(路径+文件名.扩展名)then
begin
memo1.lines.loadfromfile(路径+文件名.扩展名);]
end;
proceudre Tform1.close(……）
begin
memo1.lines.savetofile(路径+文件名.扩展名);
end;Top
6 楼wchb（漂零）回复于 2004-04-01 13:47:41 得分 0
请在问一下啊！！！！
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
我怎么用代码判断fName.txt文件有多少行啊？？？？？//////Top
7 楼iamduo（狄奥）回复于 2004-04-01 13:51:10 得分 0
读取后
Memo1.line.countTop
8 楼xiaoshi0（Rain）回复于 2004-04-01 13:53:35 得分 0
同意1楼Top
9 楼menggirl（我是锄禾,你是当午）回复于 2004-04-01 13:56:27 得分 0
fName := ExtractFilePath(Application.ExeName) + 'aaa.txt';
if not FileExists(fName) then FileCreate(fName);
Top
10 楼fhuibo（永远深爱一个叫“莎”的好女孩儿）回复于 2004-04-01 13:57:23 得分 0
打开时：
if FileExists(fName) then
Memo1.Lines.LoadFromFile(fName);
关闭时：
if FileExists(fName) then
Memo1.Lines.SaveToFile(fName);
Top
11 楼wchb（漂零）回复于 2004-04-01 14:14:27 得分 0
各位再麻烦以下啊 ？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
我已经知道怎么做了啊 ？？/
但是我又有了一个新的问题 啊？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
我怎么用代码判断fName.txt文件有多少行啊？？？？？//////是fName.txt文件的行数而不是
memo1的行数啊？？？？？？？？？？？？？？？？？？
Top
12 楼zzn007（猴子007）回复于 2004-04-01 15:03:24 得分 0
有一个想法：
将文件读取到另一个隐藏的memo2中，就是将memo的visible属性设置为：False
然后根据memo2.Lines.Count，得出行数Top
13 楼yimoo（宝剑锋自磨砺出 梅花香自苦寒来）回复于 2004-04-01 15:11:54 得分 100
否则就用Readln来一行一行的读出来，写到Memo1里去，同时把计数器累加，到了File1.Eof的时候就得到行数啦！
这个方法怎么这么笨呢？？？？？？Top
14 楼jxfzy（剑心）回复于 2004-04-01 15:32:23 得分 0
zzn007(猴子007) 的方法可以,比较简单Top
15 楼zhouzhouzhou（人生程序）回复于 2004-04-01 16:39:14 得分 0
读入到MOME中，MOME的行数也就是TXT的行数
Top
16 楼fokoda（风之力）回复于 2004-04-01 16:52:04 得分 0
呵呵，来晚啦！！
接分啊！Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
