我在Gr.11,目前忙于为我的IT课程做一个大项目。
基本上我想做的就是这个。 我希望用户能够通过我的Delphi程序本身的按钮添加新的文本文件。因此,如果他们按下“添加”#39;程序中的按钮然后会弹出一个窗口,用户可以通过该窗口选择特定文本文件,无论它存储在何处。然后我将使用该文本文件并显示它。
我做过一些研究,似乎使用openDialog组件是最佳选择,但我无法弄清楚如何做到这一点。 我还想知道我是否会使用openDialog,如果有一种方法可以保存在主delphi文件夹中某处添加的文本文件,这样就不必每次都添加它。
很抱歉,如果这是一个有点愚蠢的问题,但我还在学习Delphi。 任何帮助将不胜感激。提前谢谢。
答案 0 :(得分:2)
当向用户提供可以选择文件的对话框时,肯定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
的使用方式与<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方法并检查结果。