Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

14th
Авг

Сортировка по дате

Posted by Chas under Delphi

Есть txt файл с содержимым

halloween_85 ( 243 ) SELLER 12.11.12 21:04
adam ( 2731 ) SELLER 18.07.12 19:07
sara ( 10 ) SELLER 10.10.12 07:12
nicol ( 563 ) SELLER 14.11.12 04:06
jams ( 6095 ) SELLER 11.10.11 22:04

Требуется отсортировать строки по дате (от большей к меньшей). Как можно такое реализовать? Может есть готовые варианты?

Прик
А вот еще простенький вариант (сортировку отдаем TStrings):

procedure TForm1.Button3Click(Sender: TObject);

var

  SL1, SL2, SLD : TStringList;

  I, K, L : Integer;

begin

  SL1 := TStringList.Create;  //исходные строки

  SL2 := TStringList.Create;  //отсортированные строки

  SLD := TStringList.Create;  //даты для сортировки

  try

//    SL1.LoadFromFile(<имя исходного файла>);  //загрузка исходного файла

    SL1.Assign(Memo1.Lines);  //в этом примере загрузка из мемо

    SLD.Sorted := True;
    L := Length('SELLER ');

    //извлечение даты из строк

    for I := 0 to SL1.Count-1 do begin

      K := Pos('SELLER', SL1[I]);

      if K = 0 then continue;

      SLD.AddObject(Copy(SL1[I], K+L+6, 2)+Copy(SL1[I], K+L+3, 2)+Copy(SL1[I], K+L, 2),

                    TObject(I))

    end;
    for I := 0 to SL1.Count-1 do begin

      SL2.Add(SL1[Integer(SLD.Objects[I])]);

    end;

    Memo2.Lines.Assign(SL2);  //в примере отсортированные строки смотрим в мемо

//    SL2.SaveToFile(<имя файла>);

  finally

    SLD.Free;

    SL1.Free;

    SL2.Free;

  end;

end;