使用按钮添加文本文件(在Delphi中)

时间:2015-10-17 21:02:02

标签: delphi

我在Gr.11,目前忙于为我的IT课程做一个大项目。

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

我做过一些研究,似乎使用openDialog组件是最佳选择,但我无法弄清楚如何做到这一点。 我还想知道我是否会使用openDialog,如果有一种方法可以保存在主delphi文件夹中某处添加的文本文件,这样就不必每次都添加它。

很抱歉,如果这是一个有点愚蠢的问题,但我还在学习Delphi。 任何帮助将不胜感激。提前谢谢。

2 个答案:

答案 0 :(得分:2)

当向用户提供可以选择文件的对话框时,肯定TOpenDialogFilter

如果您只想选择特定的文件类型,则需要修改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的使用方式与<svg id="mask-layer" width="200" height="50" > <defs> <mask id="mask"> <rect width="200" height="50" style="fill: red" /> </mask> </defs> <rect id="masked" width="200" height="50" style="fill: red"/> </svg> 相同,只允许使用特定的文件扩展名进行保存。

答案 1 :(得分:-1)

所有程序化方式:http://www.delphibasics.co.uk/RTL.asp?Name=TOpenDialog

可以通过将TOpenDialog组件拖放到表单并设置属性来设置大多数设置,然后使用Execute方法并检查结果。