Работа с TListView

← →
Progh (2005-01-06 12:58) [0]

Вот есть у меня процедурка установки значения в определенную строку и столбец GridView-a, если строки с заданным номером не существует, моя процедура автоматически создаст ее. Данная процедура писалась для использования компонента GridView, как переписать ее чтобы она точно также работала, но с компонентом не GridView а TreeView.

Const IMG = 0;
Const Comp = 1;
Const TimeLeft = 2;
Const BeginTime = 3;
Const EndTime = 4;
Const State = 5;
Const ActiveApp = 6;

procedure SetField(num: Integer; Field: Integer; str: String; CompList: TGridView);
var
i: Integer;
begin
i := num - CompList.RowCount;
CompList.AddRow(i+1);

case Field of
Comp: CompList.Cell[Field,num].AsString := str;
IMG: CompList.Cell[Field,num].AsInteger := StrToInt(str);
TimeLeft: CompList.Cell[Field,num].AsString := str;
BeginTime: CompList.Cell[Field,num].AsString := str;
EndTime: CompList.Cell[Field,num].AsString := str;
State: CompList.Cell[Field,num].AsString := str;
end
end;

Пример использования :
SetField(5, 1,"str",GridView1); //Устанавливает значение "str" в строку 5, и столбец 1 компонента GridView

Как переписать данную процедуру для компонента ListView ?

Заранее благодарен !

← →
Progh (2005-01-08 08:38) [1]

Почему все молчат ?

Работа с TListView Найти похожие ветки