안녕하세요. 최용일입니다...

ㅠ'ㅠ...

High와 SizeOf함수를 이용하시면 됩니다....

procedure TForm1.ConstArray(Args: array of const);
var
    Index: Integer;
    Item: TListItem;
begin
    if SizeOf(Args) <> 0 then
    begin
        Item := ListView1.Items.Add;
        Item.Caption := TVarRec( Args[0] ).VPChar;
        for Index := 1 to High(Args) do // High(Args) = 맨 마지막 인덱스
            Item.SubItems.Add( TVarRec( Args[Index] ).VPChar );
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    ConstArray(['first', 'second', 'third']);
end;

^^ 항상 즐코하세요...





***** 운영자님에 의해서 게시물 이동 + 카테고리유지되었습니다 (2004-10-20 02:20)