[Rocat]

имеется текстовый файл с данными. небходимо написать процедурку которая будет записывать текст в ячейку стрингГрид-а, находящийся между двух определенных подстрок, например:
<условие>
нужный текст
<#условие>
понимаю что надо читать файл до тех пор, пока не встретим необходимую комбинацию символов...как реализовать?..

[R-18Rus]

Файл можно и не читать. Есть функция POS.

Код:

var a,b:char;

a:=pos('первое что ищем', номер строки);
b:=pos('второе что ищем', номер строки);

Текст между этими pos'ами будет

Код:

copy(строка,a - начало,b-a+1 - количество символов)

Т.е. копируем в "строке" "количество символов", начиная с "начала".

Работает только с одной строкой. Но в ячейку тоже всё одной строкой придётся записывать. А вот текст между несколькими строками уже не знаю как вычленить.

[Rocat]

Сообщение от R-18Rus

Файл можно и не читать. Есть функция POS.

но я ведь не знаю, в какой строке окажется это слово. может можно как то перевести текст в массив строк?

[angvelem]

Можно "читать" файл в цикле для поиска нужной строки, можно сразу загрузить всё в StringList и использовать его возможности по поиску.

[YVitaliy]

Сообщение от R-18Rus

Код:

var a,b:char;

a:=pos('первое что ищем', номер строки);
b:=pos('второе что ищем', номер строки);

Функция pos возвращает все-таки значение типа integer, значит

Код:

var a,b:integer;

И ищет она не в номере строки, а в самой строке, отсюда:

Код:

a:=pos('первое что ищем', Строка);
b:=pos('второе что ищем', Строка(или "строка[номер]"-смотря откуда она);

Все остальное кажись верно, только copy - тоже функция, отсюда

Код:

StringGrid1.Cells[aCol, aRow]:=copy(строка,a,b-a+1);

[YVitaliy]

Можешь загружать файл в стринглист, тогда его свойство Text будет содержать все строки файла:

Код:

var StrLst:TStringList;
a,b:integer;
begin
strlst:=TStringList.Create;
StrLst.LoadFromFile('путь к файлу');
a:=pos(substr1, StrLst.Text);
b:=pos(substr2, StrLst.Text);
StringGrid1.Cells[aCol, aRow]:=copy(StrLst.Text,a+length(substr1),b-(a+length(substr1))+1);
StrLst.Free.
end;

[R-18Rus]

Сообщение от YVitaliy

a+length(substr1)

Это будет начало того, чего искали? По-моему это конец.
А с переменными спутал маленько, извините.

[NumLock]

для начала: какой макс. размер файла? байты, Кб, Мб, Гб, Тб?