用按钮添加一个文本文件（在Delphi中）

-1

我在Gr.11中，目前正在为我的IT课忙着一个大型项目。用按钮添加一个文本文件（在Delphi中）

基本上我想要做的就是这个。我希望用户能够通过我的Delphi程序本身中的按钮添加新的文本文件。因此，如果他们按下程序中的“添加”按钮，将会弹出一个窗口，用户可以在该窗口中选择特定的文本文件，无论它存储在何处。然后我将使用该文本文件并显示它。

我已经做了一些研究，似乎使用openDialog组件将是最好的选择，但我无法弄清楚到底如何做到这一点。我也想知道如果我打算使用openDialog，如果有一种方法可以保存添加到主delphi文件夹某处的文本文件，这样就不必每次都添加它。

对不起，如果这是一个愚蠢的问题，但我仍然在学习Delphi。任何帮助将不胜感激。提前致谢。

来源

2015-10-17 LiteCrayon

你到目前为止尝试了什么？ –

欢迎来到堆栈溢出:)请熟悉如何提出一个好问题:)请提供我们迄今为止已经尝试过的代码，以及错误的代码行为:) – DawidPi

您可以使用TOpenDialog打开一个文件磁盘上已存在。如果你想保存一个新文件，你可以使用TSaveDialog。顺便说一下，什么操作系统和Delphi版本？ – MartynA

-1

的所有编程方法：http://www.delphibasics.co.uk/RTL.asp?Name=TOpenDialog

大部分的设置可以通过删除TOpenDialog组件的形式和设置属性进行设置，然后使用Execute方法，并检查它的结果。

来源

2015-10-17 21:20:07

向用户展示对话框时，他们可以选择文件，然后是TOpenDialog是常用的方法。

如果您希望只允许选择特定的文件类型，那么您需要修改Filter的TOpenDialog组件。

显示打开的对话框并加载所选文本文件转换成TMemo将是一个简单的例子：

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    if OpenDialog1.Execute then 
    begin 
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName); 
    end; 
end;

如果需要默默地打开文本文件，然后甚至不使用TOpenDialog组件。

为了节省您可以使用Memo1.Lines.SaveToFile('C:\Some Path\MyFile.txt');，如果你需要出示保存对话框给用户，然后使用TSaveDialog组件，并使用类似：

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    if SaveDialog1.Execute then 
    begin 
    Memo1.Lines.SaveToFile(SaveDialog1.FileName); 
    end; 
end;

的Filter可以用同样的方式为TSaveDialog作为TOpenDialog只允许使用特定的文件扩展名进行保存。

来源

2015-10-17 21:44:00 Craig

用按钮添加一个文本文件（在Delphi中）

回答

相关问题