[Stigm]

Доброго времени суток.
Прошу помощи, т.к. в delphi не знаток..
Вопрос банален, но все таки.
Надо записать в memo все строки из текстового файла, в которых содержится символ (или несколько) указанный в edit.
Алгоритм понятен, но не знаю реализацию на дельфях.

[Bars1992]

PHP код:

Var
s:tstringlist;
i:integer;
begin
s:=TstringList.create;
S.LoadFromFile(FileName);
for i:=s.count-1 downto 0 do
 if pos(Edit1.text,s[i])=0 then s.delete(i);
memo1.lines.assign(s);
s.free;
end; 


[Stigm]

... del ))))
спасибо за помощь!