Редактировалось 1 раз(а), последний 2017-03-03 00:02:10

1. Загружаем файл в StrList например.
2. Ищем компонентом Position вхождение заданной строки(или символа) в св-ве Text компонента StrList
3. Нашли - выводим Message, не нашли идем дальше.

Для этого прекрасно подойдет блокнот
или так попробывать можно
[code:1]Add(Edit,7078388,315,126) {
Left=25
Top=35
Width=125
Height=22
Text=""
}
Add(Memo,3016382,196,119)
{
Left=25
Top=65
Width=350
Height=170
ScrollBars=3
Point(doSetSelStart)
Point(doSetSelLength)
}
Add(Button,8915732,140,238)
{
Left=155
Top=35
Width=80
Height=25
Caption="Найти далее"
link(onClick,7952032:doSearch,[])
}
Add(DropFile,1920693,140,147)
{
link(onDropFile,3016382:doLoad,[])
}
Add(Position,7952032,196,238)
{
link(onSearch,11618607:doOperation,[])
link(Str,3016382:Text,[])
link(Target,8453399:Var1,[(209,198)])
}
Add(Length,8474937,378,245)
{
link(onLength,3016382:doSetSelLength,[(426,251)(426,215)(180,215)(180,174)])
link(Str,8453399:Var3,[(384,198)])
}
Add(Hub,3264736,308,238)
{
link(onEvent1,3016382:doSetSelStart,[(352,244)(352,207)(186,207)(186,167)])
link(onEvent2,8474937:doLength,[])
}
Add(GetDataEx,8453399,308,189)
{
link(Data,7078388:Text,[])
}
Add(Math,11618607,252,238)
{
OpType=1
Op2=1
link(onResult,3264736:doEvent1,[])
}
[/code:1]
[b]Dilma[/b], почему компонент Position не верно выдает позицию
всегда больше на один или это memo не правильно ее воспринимает

[code:1]Add(Button,650652,147,189) {
Left=145
Top=185
link(onClick,10920036:doSearch,[])
}
Add(Edit,549383,210,133)
{
Left=220
Top=185
}
Add(Message,2594946,280,189)
{
}
Add(Position,10920036,210,189)
{
Target="i"
link(onSearch,2594946:doMessage,[])
link(Str,549383:Text,[])
}
[/code:1]
Совершенно верно выдает...

Редактировалось 1 раз(а), последний 2017-03-03 00:02:10

Для этого нужно использовать точку doSetSelStart

Dilma в первом примере это реализовано но если часть строк не видно строка выделяется а скрол бар не прокручивается...