Из файла 1 записать в файл 2 строки, упорядочив слова по алфавиту

[Alexey1002]

Здравствуйте! Помогите пожалуйста задачей. Не могу сообразить, как сделать так, чтобы при копировании из файла f1 в файл f2 все слова каждой строки были упорядочены по алфавиту. Написал код, где ввожу строки файла 1 и все эти строки копируются во 2 файл. DELPHI. Вот мой код:

program projectfile;

{$APPTYPE CONSOLE}

uses
  SysUtils;

      Var f1,f2:textfile;
        i,n: integer;
        s: string;
    Begin
 AssignFile(f1,'file1.txt');  
Rewrite(f1);                  
writeln('Vvedite kol-vo strok faila:');
Readln(n);
Writeln('Vvedite stroki:');
for i:=1 to n do
 begin
readln(s);                    
writeln(f1,s);                
 end;
 close(f1);

 AssignFile(f1,'file1.txt');
reset(f1);
 AssignFile(f2,'file2.txt');
Rewrite(f2);
while not eof(f1) do begin
readln(f1, s);
writeln(f2, s);
write(f2, s);
end;
 close(f1);                  
 close(f2);

writeln('Stroki iz 1 faila skopirovani vo 2 fail');
writeln('END');
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Заранее большое спасибо!

[digitalis]

Сообщение от Alexey1002;1711663
[CODE

while not eof(f1) do begin
readln(f1, s);
s1 := Sort(s) ;
writeln(f2, s1);
end;
[/CODE]

Тут нужно ввести еще одну функцию - только и делов.
Нужно завести еще одну строку s1 и вспомогательную s_temp . Сортировка обычная. Помещаем в s_temp первое слово, все остальные слова из s поочередно сравниваем с s_temp : если < , удаляем в s_temp прежнее и помещаем туда новое, попутно запомнив место, откуда взяли. Когда просмотр закончится, s_temp добавляем к s1 (она предварительно д. быть очищена), а с запомненного места в s слово удаляем. Когда все в s поудаляли, можно писать s1 в f2.
Засада вот в чем: слова разделяются только пробелами? Если еще
. , ; : и пр.
- придется попыхтеть больше.

[Sciv]

Ну раз это Дельфи - то можно распарсить строку по словам, засунуть их все в TStringList и там выполнить Sort. Или вся фишка задачи - сортировку запрограммировать?

[digitalis]

Так оно же в консольном режиме... Writeln и TstringList - разве совместимо ?

[Black Fregat]

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

Writeln и TstringList - разве совместимо ?

Почему нет?

[Serge_Bliznykov]

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

Так оно же в консольном режиме... Writeln и TstringList - разве совместимо ?

да, совместимо.

[Alexey1002]

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

Тут нужно ввести еще одну функцию - только и делов.
Нужно завести еще одну строку s1 и вспомогательную s_temp . Сортировка обычная. Помещаем в s_temp первое слово, все остальные слова из s поочередно сравниваем с s_temp : если < , удаляем в s_temp прежнее и помещаем туда новое, попутно запомнив место, откуда взяли. Когда просмотр закончится, s_temp добавляем к s1 (она предварительно д. быть очищена), а с запомненного места в s слово удаляем. Когда все в s поудаляли, можно писать s1 в f2.
Засада вот в чем: слова разделяются только пробелами? Если еще
. , ; : и пр.
- придется попыхтеть больше.

Да, слова разделяются только пробелами без остальных символов вроде запятых, двоеточий и т.д.

[Sciv]

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

Writeln и TstringList - разве совместимо ?

TStringList - это не визуальная компонента, это класс. На котором, конечно, основано достаточно много VCL, но тем не менее сам по себе он внешнего представления не имеет.

[Serge_Bliznykov]

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

Да, слова разделяются только пробелами без остальных символов вроде запятых, двоеточий и т.д.

Если Вас устроит решение, использующее классы Delphi, тогда всё просто:
используя TStringGrid можно легко разделить строку(или весь текст) на отдельные слова (см. например, http://programmersforum.ru/showpost....71&postcount=5)
потом отсортировать полученный TStringList методом Sort
потом записать результат.

но, боюсь, что задача исключительно учебная и Вам нужно написать код, который разбирает строку на слова и помещает их в массив и потом написать код сортировки этого массива.

[Sciv]

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

потом отсортировать полученный TStringList методом Sort

А я тут ещё вспомнил про существование TArray<T> начиная с некоторой версии дельфей