Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- i, j, k: Integer;
- begin
- j := 1;
- repeat
- j := Pos(memo2.Lines[i], memo1.text, j);
- if j > 0 then
- begin
- j := j + length(memo2.Lines[i]);
- k := pos(#13, memo1.Text, j+1);
- if k = 0 then
- k := length(memo1.text);
- Memo3.Lines.Add(copy(memo1.Text, j, k-j));
- end;
- until j = 0;
- end;
- i, j, k: Integer;//объявление переменных тут int i,j,k
- begin //{
- j := 1;//j=1
- repeat//входим в цикл
- j := Pos(memo2.Lines[i], memo1.text, j);//ищем позицию
- if j > 0 then//если j>0
- begin//{
- j := j + length(memo2.Lines[i]);//в j заносим j+длину массива
- k := pos(#13, memo1.Text, j+1);//в k заносим позицию
- if k = 0 then//если k = 0
- k := length(memo1.text);//заносим в k длину
- Memo3.Lines.Add(copy(memo1.Text, j, k-j));//заносим в поле результат
- end;//}
- until j = 0;//условия цикла
- end;//}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement