Сортировка

[polarity]

Было заполнение так называемой таблицы рекордов в игре через текстовый файл, вот фрагменты из программы :

type
  rec = record
    name : string;
    score,time: byte;
  end;

procedure TForm2.Button1Click(Sender: TObject);
var f:textfile;
    fil:rec;
 begin
  fil.name:=edit1.Text;
  fil.score:=StrToInt(edit2.text);
  fil.time:=StrToInt(edit3.Text);
  AssignFile(f,'score.txt');
  Append(f);
  Writeln(f,'__________________________');
  Writeln(f,'Имя : ',fil.name);
  Writeln(f,'Количество попыток : ',fil.score);
  Writeln(f,'Затраченное время  : ',fil.time,' cекунд');
  Writeln(f,'__________________________');
  CloseFile(f);
  ShowMessage('Ваш результат записан!');
  Form2.Close;
end;

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

[Snejnaya]

чтобы осуществить сортировку тебе так или иначе придется выгружать из файла его содержимое (если файл уже существует и не пустой).

Т.е.
1)файл был пустой, занесли в него первый результат
2)теперь в файле хранится первый результат, тебе нужно занести второй.
Выгружаешь из файла запись, если уже записанный результат лучше, чем тот, который ты хочешь внести, записываешь новый результат в конец файла (т.е. после первого результата), в противном случае перед первым результатом и т.д.

f:textfile
тебе нужно объявить файл записей, а не текстовый файл, чтобы при чтении файла считывать запись и иметь доступ к полю time.

type
RecordFile = file of record
name:string;
score,time:byte;
end;

var f: RecordFile;


Т.о. твой алгоритм выглядит как
1)открыли файл записей
2)читаем файл по одной записи до тех пор, пока не найдем результат, худший, чем тот, который хотим добавить.
3)С помощью функции FilePos определяем позицию курсора в файле и
устанавливаем позицию курсора на 1 меньше seek(f, FilePos(f)-1);
4)теперь записываем результат очередного спортсмена в файл.

ЗЫ:Естественно, красивости типа "линий" при переходе к следующей записи и пояснения в духе "количество попыток" придедется убрать. Можете сделать 2 файла - в одном будут хранится только записи, а другой будет текстовый с пояснениями, переходами и прочим.