Q&A

  • 라벨에 루프로 값넣기 질문

라벨의 캡션에...
돌아 가면서 값을
이 게시물을
1  COMMENTS
  • Profile
    박성훈 • 2006.01.20 03:05


    arLabel: array of TLabel;
    이렇게 배열선언하셔서 Label을 할당한 다음 값을 넣을 수도 있겠구요.

    님이 이미 하신 방식대로 하시되 꽁수를 써서 Query1의 필드이름과 라벨의 이름을 똑같이 주시면
    작업하기가 수월해집니다.

    var
      i: Integer;
      lbl: TLabel;
    begin
      with Query1 do
      begin
           while not Eof do
           begin
              for i:=0 to FieldCount-1 do
              begin
                 lbl:=  Self.FindComponent(Fields[i].FieldName) as TLabel;  
                 if lbl<>nil then
                    lbl:= Fields[i].AsString;
              end;

               Next;
           end;
      end;

    end;
←First Page
248 249 250 251 252 253 254 255 256 257
Last Page→
한델 로그인 하기