В этом коде идет сортировка по строкам.
Как решить такую задачу: Если строка, в 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);
................................ и так далее...