|
#1
|
||||
|
||||
Memo + Цикл
Доброго времени суток.
Споткнулся об такую проблему, не могу сделать цикл в данном коде: Код:
var I5,K:Integer; Strn:String; begin strn:=Memo1.text; i5:=Pos('"title":"',Strn); Strn:=Copy (Strn,i5+Length('"title":"'),Length(Strn)-Length('"title":"')); i5:=Pos('","',Strn); if i5=0 then begin i5:=Length(Strn); K:=0; end else k:=Length('","'); Strn:=Copy (Strn,1,i5-1); memo2.text:=Strn; end; Данный код вытягивает нужный текст из Memo1 в Memo2. Но беда вот в чем, таких текстов может быть несколько и все они должны быть в memo2, a он вытаскивает первый и останавливается. Прошу помощи! |
#2
|
|||
|
|||
PosEx поможет. Действительно, Pos возврящает всегда первое вхождение, а PosEx - первое вхождение после опр. позиции.
|