Алфавитный порядок строк в текстовом файле

Question

Я получил этот список имен в текстовом файле в случайном порядке.... как мне отсортировать его в алфавитном порядке (delphi)? Мне нужно держать его в том же текстовом файле. Файл выглядит так:

Smith
Jack
Klein
Elliot

Answer 1

Я бы использовал TStringlist, так как он имеет встроенную функцию для сортировки. Что-то вроде этого:

var
  Stringlist : TStringlist;
begin
  Stringlist := TStringlist.Create;
  StringList.Loadfromfile(MYFILE);
  StringList.sort;
  StringList.saveToFile(MYFILLE);
  StringList.Free;
end;

Answer 2

Если каждое слово занимает отдельную строку, самый простой способ - использовать класс StringList (я сохраняю результат в другом файле для более безопасной отладки)

with TStringList.Create do try
  LoadFromfile('text.txt');
  Sort; 
  SaveToFile('sortedtext.txt');
finally
  Free;
end;