StringGrind сортировка

[shadezx]

Здравствуйте,возникла проблема, с переносом значений из StringGrid в Memo.
задание в следующем,нужно заполнить стринггрид и потом отсортированный вывести в memo.
ругаеться на Incompatible types: 'String' and 'TStrings'
помогите кому не сложно.

procedure TForm1.Button2Click(Sender: TObject);
  var r,i,k,j:integer;
  mas:array of integer;
begin
r:=strtoint(edit1.text);
setlength(mas,r);
for i:=0 to r do
  StringGrid1.Cells[i,0]:=inttostr(random(20));
for i:=0 to r-1 do
  for j:=1 to StringGrid1.RowCount-1 do
    if StringGrid1.Cells[i,0]> StringGrid1.Cells[i+1,0] then
    begin
      k:=strtoint(StringGrid1.Cells[i,0]);
      StringGrid1.Cells[i,0]:=StringGrid1.Cells[i+1,0];
      StringGrid1.Cells[i+1,0]:=inttostr(k);
    end;
 for i:=0 to r-1 do
  memo1.Lines.add(StringGrid1.Cols[i]);
end;

[Serge_Bliznykov]

переносить нужно поячеечно.
вот так, например:

 for i:=0 to r-1 do
  memo1.Lines.add(StringGrid1.Cells[i,0]);

или так, если нужно в одну строку мемо:

var s : string;
....

  s := '';
  for i:=0 to r-1 do s := s +  StringGrid1.Cells[i,0] + ' ';
  memo1.Lines.add(s);

а ещё, зачем Вам динамический массив, если Вы им не пользуетесь?!
И ещё, значение r вы задаёте в edit1, но изменить размер StringGrid1 вы забываете!

и сортировка у Вас тоже написана неверно. то, что она, возможно, иногда СЛУЧАЙНО сортирует - это просто удача.
Ещё нужно переписать.

[shadezx]

спасибо, буду работать

[Serge_Bliznykov]

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

спасибо, буду работать

Успехов!

Будут вопросы, пишите в тему, разберём вместе...

[min@y™]

задание в следующем,нужно заполнить стринггрид и потом отсортированный вывести в memo.

Не верю, что задание именно такое. Покажи оригинал!