Вверх ↑
Ответов: 91
Рейтинг: 0
#1: 2017-07-17 21:17:20 ЛС | профиль | цитата
Спасибо за пример с файлом. Я немного по другому искал первую совпадающую строку по образцу в текстовом файле. Через файл вроде как то заморочено получается.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=505
Height=641
}
Add(ListBox,8160084,413,273)
{
Left=10
Top=125
Width=405
Height=445
Point(doSelectString)
Point(onSelect)
Point(Index)
link(FileName,14497544:Text,[])
}
Add(Button,3155483,224,301)
{
Left=15
Top=15
Data=String(The license agreement)
link(onClick,8426066:doEvent1,[])
}
Add(Hub,8426066,308,301)
{
OutCount=3
link(onEvent1,8160084:doLoad,[])
link(onEvent2,8160084:doSelectString,[(374,314)(374,321)])
link(onEvent3,7982908:doMessage,[(354,321)(354,384)])
}
Add(Edit,14497544,420,182)
{
Left=15
Top=50
Width=355
Text="C:\\Users\\user\\AppData\\Roaming\\HiAsm_AltBuild\\License.txt"
}
Add(Message,7982908,490,378)
{
link(Message,8160084:Index,[(496,352)(440,352)])
}


Искал "The license agreement", вышла позиция "20 строка". Позиция определяется, как быстро от этой позиции удалить все остальное в файле до самого низа?
карма: 0

0