работа с файлами - Помощь студентам

lobovaj · 12.09.2013, 19:59

с клавиатуры вводится имя текстового файла, который содержит строку, состоящую из слов. вывести последнее по алфавиту слово

Stilet · 12.09.2013, 20:06

Код:

with TStringList.Create do begin
 LoadFromFile(InputBox('','',''));
 sort;
 ShowMessage(Strings[Count-1]); 
 free;
end;

Вроде работает.

12.09.2013, 19:59	#1
lobovaj Новичок Джуниор Регистрация: 12.09.2013 Сообщений: 1	работа с файлами с клавиатуры вводится имя текстового файла, который содержит строку, состоящую из слов. вывести последнее по алфавиту слово

12.09.2013, 20:06	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Код: `with TStringList.Create do begin LoadFromFile(InputBox('','','')); sort; ShowMessage(Strings[Count-1]); free; end;` Вроде работает. I'm learning to live...