Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.14.70.203] |
|
Сообщ.
#1
,
|
|
|
Что не правильно сделано в коде, просто создает пустой файл ?
procedure TForm1.Button1Click(Sender: TObject); var fall, f1: TextFile; S: string; mas : array [0..3000] of string; i: integer; begin if OpenDialog1.Execute then begin AssignFile(fall, OpenDialog1.FileName); reset(fall); AssignFile(f1, ExtractFileDir(OpenDialog1.FileName)+'\Rezultat_1.txt'); rewrite(f1); end; // Вот тут не могу понять правильно сделал или ????? for i:=0 to Memo1.Lines.Count-1 do mas[i] := Memo1.Lines.Strings[i]; //работаем по строкам в файле while not Eof(fall) do begin //читаем строку ReadLn(fall, S); // Поиск строки используя строки из memo - mas[i] if (Pos(mas[i], s) > 0) then writeln(f1, S); end; CloseFile(fall); CloseFile(f1); end; |
Сообщ.
#2
,
|
|
|
Все, задачу решил, ошибка была в передачи массива.
|