[Delphi] Перевернуть массив

[Язь]

Всем добрый вечер, заранее извиняюсь за быдлокод, застопорился на одной лабе по переворачиванию массива.

Условие:



Собственно код:

type
  A = array[1..1] of Integer;
  B = ^A;

var
  Form1: TForm1;
  j : B;
implementation

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);
var c1 : Integer;
begin
c1 := 0;
while (StringGrid1.ColCount > c1) do begin
  StringGrid1.Cells[c1,0] := IntToStr(Random(10));
  c1 := c1+1;
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var c : Integer;
begin
  c := 0;
  GetMem(j, StringGrid1.ColCount+8);
    while (StringGrid1.ColCount > c) do begin
      j[c] := StrToInt(StringGrid1.Cells[c,0]);
      StringGrid2.Cells[(StringGrid1.ColCount-c-1),0] := IntToStr(j[c]);
      c := c+1;
    end;
  FreeMem(j, 800);
end;
end.

Баги:

1) Распределяет по ячейкам правильно, но в итоге выбивает ошибку:


2) Продолжение первого бага после разрушения формы:



Собственно два вопроса:
а) Как пофиксить баг 1) и 2)?
б) Как запихивать не только числа, но и буквы из StringGrid1 в массив?

[Язь]

UPD: допилил пункт б), буквы теперь не помеха:

type
  A = array[1..1] of PChar;
  B = ^A;

var
  Form1: TForm1;
  j : B;
implementation

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);
var c1 : Integer;
begin
c1 := 0;
while (StringGrid1.ColCount > c1) do begin
  StringGrid1.Cells[c1,0] := char(Random(32)+65); // Английские буквы верхнего регистра + немного спецсимволов
  c1 := c1+1;
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var c : Integer;
begin
  c := 0;
  GetMem(j, StringGrid1.ColCount+8);
    while (StringGrid1.ColCount > c) do begin
      j[c] := PChar(StringGrid1.Cells[c,0]);
      StringGrid2.Cells[(StringGrid1.ColCount-c-1),0] := PChar(j[c]);
      c := c+1;
    end;
  FreeMem(j, StringGrid1.ColCount+8);
end;

end.

.. остался вопрос с выделением памяти, постоянно идут ошибки, не знаю где налажал

[Step_UA]

1. каждый элемент типа Integer занимает 4 байта, следовательно необходимо выделять

GetMem(j, StringGrid1.ColCount*4);

2. Правильнее использовать динамические массивы ...
3. Самое главное - дополнительный массив(j) здесь не нужен. Пройди в цикле первую половину массива хранящегося в StringGrid и обменяй значения его элементов с последними (0-й с последним, 1-й с предпоследним,...), через буферную переменную типа String

[Язь]

Интересно получилось, памяти уже хватает после шага 1. и 2.:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);
var c1 : Integer;
begin
c1 := 0;
while (StringGrid1.ColCount > c1) do begin
  StringGrid1.Cells[c1,0] := char(Random(32)+65); // Английские буквы верхнего регистра + немного спецсимволов
  c1 := c1+1;
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var c, b : Integer;
Z : array of PChar;
begin
  c := 0;
  b := StringGrid1.ColCount;
  GetMem(Z, b*4);
    while (b > c) do begin
      Z[c] := PChar(StringGrid1.Cells[c,0]);
      StringGrid2.Cells[(b-c-1),0] := PChar(Z[c]);
      c := c+1;
    end;
  FreeMem(Z, b*4);
end;

end.

Нужно ли теперь использовать совет 3.? Если нужно, не могли бы Вы предоставить пример?

[Step_UA]

procedure TForm1.BitBtn1Click(Sender: TObject);
var c, b : Integer;
begin
  b := StringGrid1.ColCount-1;
  for c:=0 to b do
      StringGrid2.Cells[b-c,0] := StringGrid1.Cells[c,0];
end;

... набивал здесь - могут быть синтаксические ошибки
ЗЫ рекомендации выше дал прочитав задание ... это решение если формируется новый массив на основании исходного

[phomm]

Простите, где тут ОБМЕН данных ? простое присвоение с затиранием... причем проход не до половины, а полностью.. Думаю, надо так :

procedure TForm1.BitBtn1Click(Sender: TObject);
var 
  c, b : Integer;
  s : string;
begin
  b := StringGrid1.ColCount-1; 
  for c := 0 to b div 2 do
    begin
    s := StringGrid2.Cells[b-c,0];      
    StringGrid2.Cells[b-c,0] := StringGrid1.Cells[c,0];
    StringGrid1.Cells[c,0] := s;
    end;
end;

[Step_UA]

2 phomm, для обмена писал в 3 посте ... в ващем коде необходимо заменить StringGrid2 на StringGrid1

[phomm]

Сообщение от Step_UA

3. Самое главное - дополнительный массив(j) здесь не нужен. Пройди в цикле первую половину массива хранящегося в StringGrid и обменяй значения его элементов с последними (0-й с последним, 1-й с предпоследним,...), через буферную переменную типа String

Сообщение от Язь

Нужно ли теперь использовать совет 3.? Если нужно, не могли бы Вы предоставить пример?

После этого идёт Ваш ответ с кодом - логично же, что я предположил, что Вы код примера обмена предлагаете, соответственно и ответил, а Вы получается на другую ошибочку указывали ? Извиняюсь тогда ) но и Вы меня поймите
А заменить гриды - я же копипастил из Вашего поста, не обессудьте ))

[Step_UA]

Вот ведь интересная штука, редактирование поста. Изначально в 4 посте был вопрос - нельзя ли уменьшить код ... пока отвечал - отредактировали ))
Сначала набил подобный вашему код, но заметив присутствие 2-х StringGrid'ов переделал в существующий, дописав

ЗЫ рекомендации выше дал прочитав задание ... это решение если формируется новый массив на основании исходного

[Язь]

Вести с полей: преподу не понравился код, меня отправили переделывать с фразой "что такое PChar? Я не давал вам PChar!" За сим пытаюсь перелопатить с использованием массива типа String:

procedure TForm1.BitBtn1Click(Sender: TObject);
var c, b : Integer;
Z : array of String;
begin
  c := 0;
  b := StringGrid1.ColCount;
  GetMem(Z, b*4);
    while (b > c) do begin
      Z[c] := (StringGrid1.Cells[c,0]);
      StringGrid2.Cells[(b-c-1),0] := (Z[c]);
      c := c+1;
    end;
  FreeMem(Z, b*4);
end;

end.

... та же ошибка с раздачей памяти, её хватает только на 1 элемент:



Что я делаю не так?