StringGrid

[nulyjarden]

Данные из Edit должны последовательно заноситься в StringGrid, но у меня возникла проблема, в каждый столбец SG заносятся одинаковые строчки.
Никак не могу исправить
Вот мой код

For j:= 2 to 7 do begin   
  for i:= 0 to 7 do
    StrnGrd1.Cells[i,j]:= Edt2.Text[i+1];
  end;

Цикл j идет от 2 потому что, первые две строчки заняты(так должно быть).
Размерность таблицы 7х7

[RUSt88]

скажи, как должно быть, а то ничего не понял

[nulyjarden]

ну допустим в edit есть слово "ЛУНАТИК" нужно что б оно записалось в SG вот так

л и
у к
н
а
т

То есть дано 5 строчек, если слово не помещается в первом столбце то, продолжало заносится во 2 столбец.Свободные ячейки будут пустыми.

[RUSt88]

неправильно цикл организовал

[nulyjarden]

Согласен, нужно сделать что бы выводился не i элемент строки, а что бы этот цикл продолжался, а начинался заново при переходе на новый столбец

[RUSt88]

щас поздно, если только завтра напишу, если не забуду)

[nulyjarden]

Ну если напишешь, то заранее спасибо)А я пока сам посижу, уже чуток подправил.

[Сtrl]

procedure TForm1.Edit1Change(Sender: TObject);
var
  CurrentPos: TPoint;
  I: integer;
begin
  CurrentPos.X := 0;
  CurrentPos.Y := 0;
  for I := 1 to length(Edit1.Text) do
  begin
    if CurrentPos.Y > (StringGrid1.ColCount - 1) then
    begin
      inc(CurrentPos.X);
      CurrentPos.Y := 0;
    end;
    StringGrid1.Cells[CurrentPos.X, CurrentPos.Y] := Edit1.Text[I];
    inc(CurrentPos.Y);
  end;
end;

[nulyjarden]

Сtrl спасибо огромное! Я вообще в другом направлении думал))Буду твой код переваривать.