VPF::Строки - Форум программистов

головаредиска

Дата 30.5.2014, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 5.5.2014

Репутация: нет
Всего: нет

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

КАК ПРОИСХОДИТ СРАВНЕНИЕ СТРОК? ( по длине, по символам?)

Код


var
   inputf, s, s1:string;
   input:textfile;

begin

   AssignFile(input, inputf);
   reset(input);
   if (not EOF(input)) then
      readln(input, s);
   while (not EOF(input)) do
   begin
      s1 := s;
      readln(input, s);
      if (s1 > s) then
      begin
         ShowMessage('Файл не отсортирован');
         exit;
      end;
   end;

Это сообщение отредактировал(а) bems - 30.5.2014, 21:45

bems

Дата 30.5.2014, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

находит первую пару отличающихся символов и сравнивает коды.
если отличающаяся пара символов не найдена и достигнут конец лишь одной строки, то короткая строка меньше; если отличающаяся пара не найдена и длина строк равна, то строки равны

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »