[Помогите!] Парсинг текста с ковычками.

[hiddenf]

Доброе время суток жуковцы, хотел бы спросить, как так можно сделать, тоесть я использую функцию парсинга

PHP код:

function Pars(T_, ForS, _T:string):string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end; 


И пытаюсь спарсить:

PHP код:

<input type='hidden' name='auth_key' value=' 


Как видете, тут много ковычек, и делфи выдает ошибки из-за них, прошу вас помочь!

[NebesaBag]

'#39'

Данное сочетание и есть символ '

[hiddenf]

Цитата: Сообщение от NebesaBag '#39' Данное сочетание и есть символ '

Спасибо, опробую

[windust]

  function Pars(T_, ForS, _T: string): string;
 var a, b:integer;
 begin
 Result := '';
 if (T_='') or (ForS='') or (_T='') then Exit;
 a:=Pos(T_, ForS);
 if a=0 then Exit else a:=a+Length(T_);
 ForS:=Copy(ForS, a, Length(ForS)-a+1);
 b:=Pos(_T, ForS);
 if b>0 then
 Result:=Copy(ForS, 1, b - 1);
 end;


procedure TForm1.sButton1Click(Sender: TObject);
var
zm1,zm2:string;
begin
zm1:=pars('<input type=''',sMemo1.Text,'''');
zm2:=pars('name=''',sMemo1.Text,'''');
Form1.sEdit1.Text:=zm1;
Form1.sEdit2.Text:=zm2;
end;

[NebesaBag]

Цитата: Сообщение от windust zm1:=pars('<input type=''',sMemo1.Text,''''); zm2:=pars('name=''',sMemo1.Text,'''');

Меня одного эти строки смутили?

[J-Fobos]

NebesaBag, все верно написано.

var
a:string;

a:='''';

В переменной а будет строка '