StringGrid , Заполнение ячеек StringGrid

[Myrus]

Всем привет.

Помогите пожалуйста решить проблему.

Есть текст вида:

Stroka.Text := Copy(Str, 201, 60);

состоящий из 60 символов.
Например: F4FDG6HZ675V63 и т.д.
На форму кинул StringGrid1 (RowCount = 1)
Необходимо заполнить в каждой ячейке строки по два символа
Т.е грубо
StringGrid1.Cells[0,0] := 'F4';
StringGrid1.Cells[1,0] := 'FD';
StringGrid1.Cells[2,0] := 'G6';
StringGrid1.Cells[3,0] := 'HZ';
StringGrid1.Cells[4,0] := '67';
StringGrid1.Cells[5,0] := '5V';
StringGrid1.Cells[6,0] := '63';

Сообщение отредактировано: Myrus - 14.09.17, 00:02

[Myrus]

Код работает, но не знаю верный он или нет

var
s: string;
i, d: integer;
begin
s:= Stroka.Text;
i:=1;
while i<60 do begin
for d := 0 to 30 do
 begin
  StringGrid1.Cells[d, 1] := copy(s,i,2);
  inc(i,2);
  end;
end;
end;

[MBo]

while лишний. Достаточно этого:

s:= Stroka.Text;
for i := 0 to 29 do
  StringGrid1.Cells[i, 1] := Copy(s, 1 + 2 * i, 2);

[Myrus]

Понял, спасибо.