9 клас. Урок 10.Візуальні елементи для роботи з масивами

Код кнопки Сформувати:                     





stringgrid1.cells[0,1]:='a';  

for i:=0 to 4 do
       begin
         a[i+1]:=memo1.Lines[i];
         stringgrid1.cells[i+1,0]:=inttostr(i+1);
         stringgrid1.cells[i+1,1]:=a[i+1];
         memo1.lines[i]:='';
       end;