Q&A

  • 에디트박스와 for문...
안녕하세요. 날씨가 많이 더운데 고생들 많습니다.

에디트박스를 많이 만들었는데, 이름을 e1에서부터 e24까지 만들었어요.

그리고 e1부터 e24까지 1부터 24의 값을 넣어주려고 합니다.

for i:= 1 to 24 do
'e'+i.text := intTostr(i);  
'e'+intTostr(i).text := intTostr(i); =>요렇게도 해봤어요...

암튼 이런 식으로 for문을 이용하여 edit박스를 제어하려고 하는데 방법이 없을까요...

참 에러는

[Error] Unit1.pas(35): Record, object or class type required

이렇게 나오네요...

답변부탁드릴께요 (__)
3  COMMENTS
  • Profile
    김준영 2003.06.10 00:09
    답변 감사드려요 (__)
  • Profile
    배건환 2003.06.09 23:45
    아래와 같이 하면 실행이 될겁니다.

    FindComponent를 사용하셨서 하면 될것 같네요.

    그럼 즐코요~~~!

    procedure TForm1.FormCreate(Sender: TObject);
    var i : integer;
    begin
      for i:=1 to 24 do
      begin
        if (FindComponent('E'+ IntToStr(i)) Is TEdit) then
           (FindComponent('E'+ IntToStr(i)) AS TEdit).Text:= IntToStr(i);
      end;
    end;


  • Profile
    2003.06.09 23:30
    FindComponent를 사용해보세요.
    검색해보셔도 많은 자료가 나올겁니다.

    즐코하세요...^^