function TItems.GetAttrCount: Integer;
begin
result:=4;
end;
function TItems.GetAttr(Index: Integer): string;
begin
case Index of
0: result:='Name';
1: result:='Other';
2: result:='Other * 2';
3: result:='Note';
end;
end;
function TItems.GetItemAttr(Index,
ItemIndex: Integer): string;
begin
case Index of
0: result:=Items[ItemIndex].Name;
1: result:=IntToStr(Items[ItemIndex].Other);
2: result:=IntToStr(Items[ItemIndex].Other*2);
3: begin
if ItemIndex mod 2=0 then begin
result:='Delphi Software Online';
end else begin
result:='http://www.animare.hu/dso/';
end;
end;
end;
end;