Richedit

← →
Юля (2003-08-04 14:58) [0]

Уважаемые Мастера! Есть небольшая проблемма: в RichEdit я загружаю файл *.pas. После мне необходимо найти в Riche все слова после, uses, т.е все используемые модули. Буду очень благодарна за примерчик

← →
HolACost (2003-08-04 15:03) [1]

Мамма миа! А сам простым поиском найти uses не можешь? А после его нахождения чита всё до ;!

← →
Юля (2003-08-04 15:08) [2]

Подскажите пожайлуста как это сделать

← →
chs2r (2003-08-04 15:28) [3]

НЕ знаю как в ричедит, я с ним не особо ладил, а в мемо
можно просто перебором строк

i:=1;
while i<Memo.Lines.Count do
begin
( "uses",Memo.Lines.Strings[i]) НЕ знаю как в ричедит, я с ним не особо ладил, а в мемо
можно просто перебором строк

i:=1;
while i<Memo.Lines.Count do
begin
position:=pos("uses",Memo.Lines.Strings[i]);
if position>0 then
begin
...//значит в этой строке есть "uses" и ее надо обрабатывать
end;
end;
где инкрементировать i -разберешься :)

← →
HolACost (2003-08-04 15:37) [4]

Извинясь - не заметил что девушка!(это про "сам")!
Если честно лень писать, но лггика простая....
Нашли строку в которой есть uses!...
и потом после юзес (например в темповойц строке удалить его нафиг) обрабатывае м строку до $// для верности пройтись и копировать в темповую строку все строки, которые после юзис и до ; tcntcndtyyj вместе с ней, при этом получим одну строку....
А потом можно просто
<TStringList>.CommaText := Tmp_String!
И у вас в листе все модули!!!

Richedit Найти похожие ветки