Доброго времени суток.
Данные из Edit должны заносится в StringGrid по столбцам, то есть если одного столбца не хватает то запись продолжается в следующем. Например в Edit есть слово "КОНФЕРЕНЦИЯ", оно должно заносится вот так К Н
О Ц
Н И
Ф Я
Е
Р
Е
Размерность таблицы 7х7.
У меня, при переходе на новый столбец, не записывается 1 буква. Подскажите пожалуйста где ошибка.
Code
procedure TForm1.btn1Click(Sender: TObject);
Var
i: Integer;
CurrentPos: TPoint;
begin
CurrentPos.X := 0;
CurrentPos.Y := 0;
For i := 1 to length(Edt2.Text) do begin
if CurrentPos.Y <= (Strngrd1.ColCount) then begin
Strngrd1.Cells[CurrentPos.X, CurrentPos.Y] := Edt2.Text[i];
Inc(CurrentPos.Y);
end
else
begin
Inc(CurrentPos.X);
CurrentPos.Y := 0;
end;
end;
end;
Мне кажется нужно сделать проверку: если строка больше чем количество ячеек в столбце.
