из ListBox в StringGrid

[Aleksandr69]

В итоге вот что получилось может кому пригодиться

    Col := 0; Line := 0; //ineger
  for i := 0 to Listbox1.Items.Count-1 do begin
    if i mod 4 = 0 then begin
      Inc(Line);
      Col := 0;
    end;
    Stringgrid1.Cells[Col, Line] := listbox1.Items[i];
    Inc(Col);
  end;

всем спасибо за помощь

[Aleksandr69]

Помогите такая задача из ListBox в StringGrid

в ListBox записи такого вида

ФИРМА
НОМЕР
ОПИСАНИЕ
АДРЕС
ФИРМА
НОМЕР
ОПИСАНИЕ
АДРЕС

в StringGrid четыре колонки

нужно занести записи в StringGrid

так начиная с первой строки

ФИРМА НОМЕР ОПИСАНИЕ АДРЕС
ФИРМА НОМЕР ОПИСАНИЕ АДРЕС

[MotoArhangel]

К примеру так:

procedure TMainForm.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(IntToStr(Random(123456)-52346));
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TMainForm.ClearSG;
var
  i, j: Integer;
begin
  For i := 0 to StringGrid1.ColCount - 1 do
    For j := 0 to StringGrid1.RowCount - 1 do
      StringGrid1.Cells[i, j] := '';
end;

procedure TMainForm.Button2Click(Sender: TObject);
var
  i, j: Integer;
begin
  ClearSG;
  i := 0;
  j := 0;
  While (ListBox1.Count > 0) and (j < StringGrid1.RowCount) do
    begin
      If i > StringGrid1.ColCount - 1 then
        begin
          i := 0;
          Inc(j);
        end;
      StringGrid1.Cells[i, j] := ListBox1.Items.Strings[0];
      ListBox1.Items.Delete(0);
      Inc(i);
    end;
end;

В SG можешь делать как StringGrid1.Cells[i, j], где i и j сторока и столбец, либо StringGrid1.Cols[0],StringGrid1.Cols[1] и тд. колонки и StringGrid1.Rows[0],StringGrid1.Rows[1] и тд. строки.

procedure TMainForm.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(IntToStr(Random(123456)-52346));
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Randomize;
end;

Это заполнение LB произвольными значениями. Тебе же не надо. У тебя в LB уже что то есть.

[Aleksandr69]

Сделал так работает

    for i := 0 to cxListbox1.Items.Count-1 do
    JvStringgrid1.Cells[i mod 4, i div 4] := cxlistbox1.Items[i];

только заполняет с 0 что поправить

[MotoArhangel]

Интересный код. Проверь как он работает )
P.S. с -1 поиграй.