procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
if OpenDialog1.Execute then
for i := 0 to OpenDialog1.Files.Count - 1 do
ListBox1.Items.Add(OpenDialog1.Files[i]);
end;
var
i: integer;
begin
if OpenDialog1.Execute then
for i := 0 to OpenDialog1.Files.Count - 1 do
ListBox1.Items.Add(OpenDialog1.Files[i]);
end;
解决方案 »
- 太失望了太失望了……
- 为什么 在线程 动态创建的窗体 , 在 Execute 完 ,动态创建的窗体就消失了
- indy控件发邮件,收件人地址字符串最多可以多长?
- 急求高难度图像算法问题
- 请教知道了一个control的类名称,怎样获得该control的名称啊?
- 关于堆栈溢出的问题!!十万火急!!
- SQL SERVER2000狂吃内存!对俺有启发就有分!
- 一直困扰我,无法解决的窗体互相影响如何实现?望各位指点!!
- 弹出子窗口后,父窗口的edit控件如何保持可编辑状态?
- 买了DELPHI 6 D版,说能告诉我,它的序列号和密匙是多少??
- Recover 4 all 1.03的哪里可以下载? ?
- 有关打印问题?????????
怎么现在还没有人回答我的第二个问题呢?