Фрагмент кода

[ciy]

Помогите разобраться в данном коде. Для чего он нужен и какие функции выполняет.

 procedure TForm1.AppInfoToGrid(grid:TStringGrid);
var descript:TStringList;
    WinCaption:array[0..255] of char;
    i:word;

begin
descript:=TStringList.Create;
with descript do
  begin
    Clear;
    EnumWindows(@AddWinInfo,LParam(descript));
  end;
for i:=0 to descript.Count-1 do
 begin
  if i+1>grid.RowCount-1 then grid.RowCount:=grid.RowCount+1;
  GetWindowText(strtoint(descript.strings[i]),WinCaption,SizeOf(WinCaption));
  grid.Cells[0,i+1]:=WinCaption;
  grid.Cells[1,i+1]:=descript.strings[i];
 end;
if grid.RowCount>i+1 then grid.RowCount:=i+1;
descript.Destroy;
end;

[Serge_Bliznykov]

получить список запущенных программ (с помощью EnumWindows() ) и занести эту информацию в grid

p.s. А код написан коряво - мало того, что увеличение размеров грида производится в цикле, так ещё и после цикла используется переменная цикла, которая после цикла for может иметь неопределённое значение!
вместо этого нужно просто один единственный раз задать размер грида:

grid.RowCount := descript.Count;

[ciy]

Сообщение от Serge_Bliznykov

получить список запущенных программ (с помощью EnumWindows() ) и занести эту информацию в grid

p.s. А код написан коряво - мало того, что увеличение размеров грида производится в цикле, так ещё и после цикла используется переменная цикла, которая после цикла for может иметь неопределённое значение!
вместо этого нужно просто один единственный раз задать размер грида:

grid.RowCount := descript.Count;

а не могли бы вы данный код немного подправить, чтобы он нормально выглядел.

[Serge_Bliznykov]

Сообщение от ciy

а не могли бы вы данный код немного подправить, чтобы он нормально выглядел.

так я же уже предложил исправление.

ладно, повторю ещё раз, полностью процедуру AppInfoToGrid:

procedure TForm1.AppInfoToGrid(var grid:TStringGrid);
var 
    descript:TStringList;
    WinCaption:array[0..255] of char;
    i:word;

begin
    descript:=TStringList.Create;
    EnumWindows(@AddWinInfo,LParam(descript));

    grid.RowCount := descript.Count;
    for i:=0 to descript.Count-1 do
    begin
       GetWindowText(strtoint(descript.strings[i]),WinCaption,SizeOf(WinCaption));
       grid.Cells[0,i+1]:=WinCaption;
       grid.Cells[1,i+1]:=descript.strings[i];
    end;
    descript.Free;
end;