아래와 같이 선언하면.. Listview 에 caption 이 한개 밖에 등록이 안되네요.
procedure TRegistrationFrm.Button1Click(Sender: TObject);
var
item: TListItem;
i: integer;
begin
item := listview1.Items.Add;
for i:=0 to 100 do begin
item.Caption := inttostr(i);
end;
end;
이걸..
for i:=0 to 100 do begin
item := listview1.Items.Add;
item.Caption := inttostr(i);
end;
이렇게 하면 되는데..
제가 원하는건..
var
item: TListItem;
begin
for i:=0 to 100 do begin
item := callitem; //callitem 은 넘겨받은 TListItem 으로listview1.Items.Add; 입니다. ^^
item.Caption := inttostr(i);
end;
end;
하면.. 등록이 되어야 하는데..
callitem 이런식으로 하면 안되서요..
그럼 수고하세여~
procedure TRegistrationFrm.Button1Click(Sender: TObject);
var
i: integer;
function reitem: TListItem;
begin
result := listview1.Items.Add;
end;
begin
for i:=0 to 100 do begin
reitem.Caption := inttostr(i);
end;
end;
꼭 이렇게 해야 되는지도 모르겠고..
또.. 위에 펑션에다가.. 넘겨받은 ListItem 인.. callitem 을 대입하면..
또다시 안되고..
즉..
result := callitem;
.....
이렇게 하면 또 안되네요.. ㅠ.ㅠ
간단한 TListItem 에 대한 설명좀 부탁드려요 ^^;;
몇일을 해봤는데.. 감이 안잡히네요.. ^^;;