Сортировка

[Verax1]

Нужно отсортировать список фамилий по алфавиту (по возрастанию) немогу че-то допереть до кода. Можете помочь?

[BDA]

uses
  CRT;

const
  n = 3;

var
  a: array[1..n] of string;
  i, j: integer;
  s: string;

begin
  a[1] := 'Sidorov';
  a[2] := 'Ivanov';
  a[3] := 'Petrov';
  
  writeln('Unsorted:');
  for i := 1 to n do
    writeln(a[i]);
  
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if a[i] > a[j] then
      begin
        s := a[i];
        a[i] := a[j];
        a[j] := s;
      end; 
  
  writeln;
  writeln('Sorted:');
  for i := 1 to n do
    writeln(a[i]);
  readln;
end.

[Verax1]

Язык Дэлфи) Вы написали в Паскале, но ведь почти одно и тоже, спасибо вроде понял

[Verax1]

m:Tmas=(
(N:1;Gr:'ИУ2-22';Fam:'Ололоев';Vozr:18),
(N:2;Gr:'СМ1-22';Fam:'Петров';Vozr:19),
(N:3;Gr:'РК2-22';Fam:'Иванов';Vozr:19),
(N:4;Gr:'Э5-21';Fam:'Разуваев';Vozr:17),
(N:5;Gr:'ИУ4-32';Fam:'Теркин';Vozr:20),
(N:6;Gr:'СМ2-22';Fam:'Пушкин';Vozr:19));

Этот масив записан в StringGrid.
Нужно отсортировать их по фамилии.


Вопрос у каждой быквы есть свой номер так? "а"<"б"<"в"<"г"<"д"? или как?

[Verax1]

Для тех кто будет искать. Вот в Дэлфи(типизированный файл) сортировка по алфавиту( вроде работает)

	
procedure TForm1.F13Click(Sender: TObject);
var i,k:integer;
p:tz;
begin//обр ф1 упоряд
Assignfile(f1,'C:\prohi\FF1.dat');
reset(f1);
for i := 1 to filesize(f1)-1 do 
begin
k:=0;
while k<filesize(f1)-1 do
begin
seek(f1,k);
read(f1,z,p);
if p.Fam<z.fam then 
begin
seek(f1,k);
write(f1,p,z);
end;
k:=k+1;
end;
end;
closefile(f1);
end;

[BDA]

Во-первых, вы не указали язык программирования, и по вашим прошлым сообщениям я решил, что это паскаль. Во-вторых, в вопросе не содержится никакой информации о том, что нужно сортировать записи, тем более в СтрингГрид. В-третьих, буквы сравниваются по их коду в таблице символов (windows 1251 в Дельфи старых версий и юникод - в новых).

[Verax1]

Спасибо большое, простите за то что изначально неправильно изложил

[BDA]

Пожалуйста
В следующий раз сразу все нюансы указывайте