Перенести из ListBox в StringGrid

[Otar4ik]

Здравствуйте!

Строю конечный автомат путём преобразования загруженной грамматики с файла в ListBox в StringGrid.

Запутался в циклах по строкам и ячейках.Я разделил каждую строку и присвоил им переменную byte,но как я понял byte со стрингом не дружат

То есть как мне сделать такой цикл,который пройдётся по всему ListBox
и выведет в StringGrid значения,которые я перебрал и вырвал из строк.

Вот кодПрограмму тоже залью)

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,j:integer;
stroka:string;
len,str1,str2,str3:byte;
begin
if ListBox1.ItemIndex>=0 then
MessageBox(form1.Handle,'Ãðàììàòèêà íå ââåäåíà')
else
StringGrid1.RowCount:=6;
StringGrid1.Cells[1,0]:='0';
StringGrid1.Cells[2,0]:='1';
len:=length(stroka);
str1:=ListBox1.Items.Text;
str2:=ListBox1.Items.Text;
str3:=ListBox1.Items.Text;
for i:=len to 1 do
begin
StringGrid1.Cells[0,i]:=stroka[1];
for j:=len to 1 do
begin
StringGrid1.Cells[i,j+1]:=str1;
StringGrid1.Cells[i+1,j]:=str2;
StringGrid1.Cells[i,j-1]:=str3;
end;

Вот так должен выводить только путём цикла перебора в строках ListBox(как показано на рисунке).Опять же подсказками советами или пару строк кода.

[Paskal1]

не знаю с типом byte не сталкивался но я бы перевел его значение в строку и присвоил в стринггрид

С++
StrinsA=  Encoding.UTF8.GetChars(bytes);

или так

Str:=char(N);

N = номер символа (в цикл)

[Stilet]

как я понял byte со стрингом не дружат

Char дружат. Используй его.

[Otar4ik]

Спасибо)Тему можете закрывать)я через циклы всё сделал)