Сортировка в Delphi

[Mango]

Помогите пожалуйста написать код (алгоритм)сортировки в компоненте StringGrid, мне нужно расположить в алфавитном порядке авторов книг. (для задачи на записи),только пожалуйста не давайте ссылки на википедию я там уже все прочитала ничего не нашла толком..

[puporev]

Если Вам нужно отсортировать массив записей по одному из полей, напрмер по фамилии автора, то сортировка идет также как любого одномерного массива. Например у Вас 2 поля - автор и название.

const n=10;
type Tknig=record
                avt,naz:string[20];
                end;
var sp:array[1..n] of Tknig;//массив записей
      bf:Tknig; //буфер для сортировки записей
............................
//сортировка по фамилии
for i:=1 to n-1 do
for j:=i+1 to n do
if sp[i].avt>sp[j].avt then
     begin
       bf:=sp[i];
       sp[i]:=sp[j];
       sp[j]:=bf;
      end;

Сейчас у Вас весь массив отсортирован по возрастанию в алфавите фамилии автора, и Вы можете разместить его например в StringGrid.
В самой таблице сортировать массив записей очень неудобно, да и не нужно. У нее даже свойства Sorted нет.

[Mango]

дело в том, что у меня есть задание составить программу формирования архива данных на диске по изданным книгам. Данные включают следующие поля: 1) автор, 2) название, 3) год издания, 4) город, где издана книга, 5) название издательства, 6) цена книги
записи у меня сразу вносятся в stringGrid а затем сохраняются в файл. т е я не могу понять где делать сортировку?

[[koyot]]

после вставки в грид но перед сохранением о_О

[puporev]

После заполнения таблицы нужно все-равно создать массив записей, чтоб потом его сортировать. Типа такого.

for i:=0 to Stringgrid1.RowCount-1 do
   begin
     sp[i].avt:=Stringgrid1.Cells[1,i];
     sp[i].naz:=Stringgrid1.Cells[2,i];
      sp[i].god:=Stringgrid1.Cells[3,i];
     sp[i].gor:=Stringgrid1.Cells[4,i];
     ..............................................
  end;

Так создаете массив, потом сортируете как я писал, а потом хоть в файл, хоть снова в таблицу или еще куда.

[Mango]

Большое спасибо, разобралась)