请问savedialog and opendialog 的用法！谢谢(50分)

大

大森林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #1

请问savedialog and opendialog 的用法！谢谢

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #2

var
F : File;
begin
if OpenDialog1.Execute then
begin
Assigned(F,OpenDialog1.FileName);
reset(F,1);
while not Eof(F) do
begin
BlockRead(F,...);
end;

CloseFile(F);
end;

if SaveDialog1.Execute then
begin
//一样的
end;

 

憔

憔悴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #3

来迟……

 

C

c2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #4

with OpenDialog1 do
if Execute then
begin
Memo1.Lines.LoadFromFile(filename);
end;

savedialog1一样。

 

大

大森林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #5

多人接受答案了。