델파이에서 컨트롤 이름 + 변수를 추가하는 방법
이를 수행하는 유일한 방법은 다음과 같습니다:
컨트롤 배열 Jedit 정의
var
Form1: TForm1;
TEdit의 Jedit:Array[0..9];
구현
{$R *.dfm}
TForm1.FormCreate( 보낸 사람: TObject);
var i:integer;
begin
Jedit[0]:=Edit1;
Jedit[1 ] :=Edit2;
Jedit[2]:=Edit3;
Jedit[3]:=Edit4;
Jedit[4]:=Edit5;
Jedit[5]:=Edit6;
Jedit[6]:=Edit7;
Jedit[7]:=Edit8;
Jedit[8]:=Edit9;
Jedit[9]:=Edit10;
i:=0 ~ 9의 경우
시작
p >Jedit[i].Text:=inttostr(i+1);
end;
end;
그렇지만, 귀하의 프로그램에서는 이렇게 작성하는 것이 매우 번거롭습니다. 나중에 다른 프로그램이 있으면 사용하기가 더 편리할 것입니다. 답변이 만족스러운지 확신할 수 없나요?