Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Заполнение StringGrid
Доброго времени суток.
Данные из 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;

Мне кажется нужно сделать проверку: если строка больше чем количество ячеек в столбце.
1 | Автор: nulyjarden | 2011-04-02, 19:53   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: