Код:
const n=3;
m=2;
var a:array [1..N,1..M] of Char;
v:array[1..M] of Char;
i,j:byte;
begin
for i:=1 to N do
for j:=1 to M do
StringGrid1.Cells[j,i]:=a[i,j];
for i:=1 to N do
V[i]:=a[i,M];
for i:=1 to N do
memo1.lines.add(V[i]);
end;
end.
Админ: Пользуемся тегами, иначе последуют санкции!
буду благодарен за помощь.
запускается, но в стринггрид меняются значения, а в мемо другие символы заносятся