1

В этом коде идет сортировка по строкам.

Как решить такую задачу: Если строка, в memo, заполнена то учитывать эти параметры для сортировки. А если не заполнена то не учитывать. В моем случае, получается, что все строки, даже пустые - сортируются. Что тут нужно дописать что бы так заработало ?

    //работаем по строкам в файле
    while not Eof(fall) do
      begin
     //читаем строку
      ReadLn(fall, S);
      if (Pos(AnsiLowerCase(Memo1.Lines[0]), AnsiLowerCase(s)) > 0) then
      writeln(REZ1, S);
      if (Pos(AnsiLowerCase(Memo1.Lines[1]), AnsiLowerCase(s)) > 0) then
      writeln(REZ2, S);
      if (Pos(AnsiLowerCase(Memo1.Lines[2]), AnsiLowerCase(s)) > 0) then
      writeln(REZ3, S);
................................ и так далее...

Когда делаю через чекбоксы + Edit, вот так то все намного быстрее работает (То есть ставлю галочку на те edit где они заполнены). Но так не удобно, через memo удобней:

while not Eof(fall) do
  begin
 //читаем строку
  ReadLn(fall, S);
  if CheckBox1.Checked and (Pos(AnsiLowerCase(Edit1.Text), AnsiLowerCase(s)) > 0) then
  writeln(f1, S);
  if CheckBox2.Checked and (Pos(AnsiLowerCase(Edit2.Text), AnsiLowerCase(s)) > 0) then
  writeln(f2, S);
  if CheckBox3.Checked and (Pos(AnsiLowerCase(Edit3.Text), AnsiLowerCase(s)) > 0) then
  writeln(f3, S);
................................ и так далее...
14
  • 1
    Еще хотел кое-что спросить. У меня иногда появляются практически одновременные голоса за мои ответы - по несколько (много) штук. Вы про это ничего не знаете?
    – user176262
    10 апр 2018 в 18:29
  • 1
    @Igor подозреваете накрутку?
    – Kromster
    10 апр 2018 в 19:24
  • 2
    @Kromster Подозреваю человека в лучших побуждениях. Все равно система превратит карету в тыкву.
    – user176262
    10 апр 2018 в 19:27
  • 1
    Igor, Я поняла. Тогда буду ставить на понравившиеся темы + периодически. Просто я от чистого сердца ставила эти +, даже ничего плохого в мыслях не было. Не переживайте, теперь буду делать все и по этим правилам. Приятного вечера, главное человеческое понимание, общение и это у нас есть. 10 апр 2018 в 19:57
  • 1
    @Татьяна Я не сомневался, что Вы это делали от чистого сердца. Меня беспокоило, в первую очередь, чтобы к Вам за это не применили административные санкции. До новых встреч на StackOverflow.
    – user176262
    10 апр 2018 в 20:38

1 ответ 1

1
if (Memo1.Lines[0] <> '')
and (Pos(AnsiLowerCase(Memo1.Lines[0]), AnsiLowerCase(s)) > 0) then
  writeln(f1, S);
6
  • Тут почему то пишет ошибку. Не могу понять... 10 апр 2018 в 18:33
  • 1
    @Татьяна Какую ошибку?
    – user176262
    10 апр 2018 в 18:34
  • 1
    И надо скобки вокруг условия добавить
    – Kromster
    10 апр 2018 в 18:36
  • Вот текст при компиляции: Implicit string cast with potential data loss from 'string' to 'ShortString' 10 апр 2018 в 18:36
  • 1
    "Implicit string cast with potential data loss" - это не ошибка, а предупреждение ..
    – Kromster
    10 апр 2018 в 18:37

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.