请帮我看看 对话框应该怎么添 对不起小弟没积分了 好心人帮帮吧!(0分)

R

renaihaore

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-18

• #1

procedure TForm1.Button1Click(Sender: TObject);
var
vStr: string;
i:integer;
TxtList:TStringList;
begin
for i:=0 to ListBox3.Items.count-1 do
begin
vStr:=ListBox3.Items;
memo1.Lines.LoadFromFile(vstr);
memo1.Lines.Clear;
memo1.Lines.SaveToFile(vstr);
end;
for i:=0 to ListBox2.Items.count-1 do
begin
vStr:=ListBox2.Items;
Del_Flag:=True;
rec_pointer:=30;
DeleteTree(vStr);
end;
for i:=0 to ListBox1.Items.count-1 do
begin
vStr:=ListBox1.Items;
if IsLineOfFileBeginWith(vStr,2,'OwnGuild=') then
begin
TxtList:=TStringList.Create;
TxtList.LoadFromFile(vStr);
TxtList.Strings[2]:='OwnGuild=';//改变第二行为'aa'
TxtList.SaveToFile(vStr);//把修改的文本回存成Txt文档
TxtList.Free;
end
else
begin
if IsLineOfFileBeginWith(vStr,5,'OwnGuild=') then
begin
TxtList:=TStringList.Create;
TxtList.LoadFromFile(vStr);
TxtList.Strings[5]:='OwnGuild=';//改变第二行为'aa'
TxtList.SaveToFile(vStr);//把修改的文本回存成Txt文档
TxtList.Free;
End;

end;
end;

Application.MessageBox(PChar('数据清理完毕'),'信息',MB_OK);
end;






怎么把
if messagedlg('是否清空服务器数据?',mtconfirmation,[mbYes, mbNo],0); then

else


添哪呢? 我添的都不对 请高手帮忙

 

R

renaihaore

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-18

• #2

好心人帮帮我好吗?

 

R

renaihaore

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-18

• #3

好心人帮帮我好吗?

 

菜

菜鸟㈠号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-18

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
vStr: string;
i:integer;
TxtList:TStringList;
begin
if messagedlg('是否清空服务器数据?',mtconfirmation,[mbYes, mbNo],0)=MRYES then
begin
for i:=0 to ListBox3.Items.count-1 do
begin
vStr:=ListBox3.Items;
memo1.Lines.LoadFromFile(vstr);
memo1.Lines.Clear;
memo1.Lines.SaveToFile(vstr);
end;
for i:=0 to ListBox2.Items.count-1 do
begin
vStr:=ListBox2.Items;
Del_Flag:=True;
rec_pointer:=30;
DeleteTree(vStr);
end;
for i:=0 to ListBox1.Items.count-1 do
begin
vStr:=ListBox1.Items;
if IsLineOfFileBeginWith(vStr,2,'OwnGuild=') then
begin
TxtList:=TStringList.Create;
TxtList.LoadFromFile(vStr);
TxtList.Strings[2]:='OwnGuild=';//改变第二行为'aa'
TxtList.SaveToFile(vStr);//把修改的文本回存成Txt文档
TxtList.Free;
end
else
begin
if IsLineOfFileBeginWith(vStr,5,'OwnGuild=') then
begin
TxtList:=TStringList.Create;
TxtList.LoadFromFile(vStr);
TxtList.Strings[5]:='OwnGuild=';//改变第二行为'aa'
TxtList.SaveToFile(vStr);//把修改的文本回存成Txt文档
TxtList.Free;
End;

end;
end;

Application.MessageBox(PChar('数据清理完毕'),'信息',MB_OK);
end;

end;

 

A

aizhuzhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-18

• #5

if messagedlg('是否清空服务器数据?',mtconfirmation,[mbYes, mbNo],0)=mryes then

else

 

L

lovezyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-20

• #6

你说是什么对话框？是打开保存文件对话框还是显示是否按钮的对话框？？？
如果是一个询问对话框，很简单
if application.messagebox('是否保存？','提示',4+32+256)=6 then .....
这句意思是弹出一个询问对话框，有是否两个按钮，默认按钮‘是’，=6的意思是选择是后的操作！