大概如下:var
o:TEdit;
begin
for i:=0 to N do o[i]:=TEdit.Create(Self);
end;
o:TEdit;
begin
for i:=0 to N do o[i]:=TEdit.Create(Self);
end;
解决方案 »
- 请问微软的TTS 有中文女声吗?
- GlobalAlloc,CopyMemory引用哪些单元?急
- 过程嵌套是什么含义,有什么用途?
- 晕…!把123456.63写入表中,存的却是123456.74,字段类型是decimal(15,2),哪错了???
- 随闷,怎么一次全部读取TXT的文本内容到String中呢?
- 如何将程序缩小到任务栏?
- 小问题?急
- interface not supported,怎么解决?
- 关于delphi论证的问题
- 关于从ISBN号中提取出版社社号的问题?
- 快过年了,小弟给大家拜个年
- 最近要考3级A,有些题不会做,参考书上好像也没有。若谁能帮助请访问http://cjsyf_cn.myetang.com/3a.htm
但是o[i]:=TEdit.Create(Self);
句有错误提示,如下:
[Error] un_part2.pas(36): Class does not have a default property
请再帮我解决一下
谢谢
o[i]:=TEdit.Create(nil);
试一下
var
o:array of Tedit;
begin
setlength(o,N);
for i:=0 to N do o[i]:=Tedit.create(self);
setlength(o,2)
for i:=0 to 2 do
o[i]:=Tedit.create(self);
当i等于2时便提示:
无效的指针操作
这是为什么?
o[i]:=Tedit.create(nil);
var
i,n: Integer;
const
NamePrefix = 'Edit';
begin
n:=50;
for i := 1 to n do
begin
TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
begin
Left := 10;
Top := i * 20;
Parent := self;
end;
end;
end;