dim sfile[5] as string
For i := 0 To 4
sFile[i] = form1.Text1(i).Text
exit for
我在 delphi 中如何写,能向vb那样有控件数组吗?vb 的 do..loop 和delphi的
while...doend;
功能一样吧???
For i := 0 To 4
sFile[i] = form1.Text1(i).Text
exit for
我在 delphi 中如何写,能向vb那样有控件数组吗?vb 的 do..loop 和delphi的
while...doend;
功能一样吧???
解决方案 »
- 求教两个简单的问题,谢谢
- INDY中的TIDTcpServer和TIDTcpClient有没有OnRead之类的事件?
- File not found: 'D7ScktComp.dcu'
- 用RegisterHotKey注册一个F12的热键,但总是返回false
- 用socket,我如何知道服务端收到了数据,在客户端中可以删除刚才发送的数据呢?
- 如何将一个WORD转化成STRING
- 小弟新手,请教个对我来说比较难的问题。如何在TChart中按要求画出曲线?
- 送分:如何进行团队开发(简单的数据库,如学生管理系统)
- 在使用DriveComboBox控件时,怎样判断光驱或软驱中没有放碟或盘?
- 怎么用delphi执行文件。得分很容易的。
- 三层中,客户端启动到登录界面要30秒,太慢了.请有经验的大虾看看
- 有没有方法把发向某个IP某个端口的数据截获下来
var
A: array[1..5] of TEdit;
I: Integer;
begin
for I := 0 to 4 do begin
A[I] := TEdit.Create(Self);
A[I].Parent := Self;
A[I].Top := I * A[I].Height;
A[I].Name := Format('NewEdit%d', [I]);
end;