各位大大： 我有一个程序在project文件夹下，还有一个专门放文本的文件夹TXT在project目录下：...project\TXT 我的程序要实现这样的功能： 先打开一个文本文件，录入数据后，然后自动让其保存在指定的文件夹TXT下， 请问如何实现呢？ 谢谢！

Before loading form, you should read your data from txt. And depending on you to how to save the data. You can save the data while the program finishs the process.

ralph 大大: 这个新文件还没有在TXT文件夹下创建呢。 要打开的（指定格式的）新文件客户是随机的，然后我想在程序中指定一个位置 如TXT文件夹下，把客户选择的新文件以txt格式保存下来。    顺便在问一个问题：  

procedure TForm1.Button1Click(Sender: TObject);
var
od:TOpendialog;
Memo:Tmemo;
begin
od:=TOpenDialog.create(self);
Memo:=TMemo.create(self);   <-为什么说没有指定memo的父窗体呢！
>    谢谢!     
        

You define your format of TXT and the save like the following.....    procedure TForm1.Button1Click(Sender: TObject); begin   //If you want to save TXT into the default directory(c:\txt)   //If you did not create a TXT directory, it will show the window like "My Document "   SaveDialog1.InitialDir := 'c:\txt';   SaveDialog1.Filter := 'Text files (*.txt)|*.TXT';   SaveDialog1.Execute; end;    Memo:=TMemo.create(self); <-为什么说没有指定memo的父窗体呢！ It is not this line error. The error is on "memo.lines.clear ;" You should add this line after "Memo:=TMemo.create(self);" memo.ParentWindow := form1.Handle; <== Add

谢谢！ memo问题解决了！

If you save the words from Memo, it will be easy. Memo1 := TMemo.Create(self); memo1.ParentWindow := form1.Handle; Memo1.Lines.Add('Test!'); Memo1.Lines.SaveToFile ('c:\test.txt'); Memo1.Destroy;

You are right!

那么我用LoadFromFile方法，也可以在运行期打开指定的文本文件了 發表人 - zzmbeyond01 於 2004/02/24 15:16:32