[cotseec]

нда, с copy что-то не то, вот еще один вариант:

Код:

delete(а,pos('"',а),length(а)-pos('"',а)+1);
delete(а,1,pos('db=',а)-1);

разобрался, чтобы заработал с copy надо сделать вот так:

Код:

a:=copy(a,pos('db=',a),length(a)-pos('db=',a)+length('db='));
delete(a,pos('"',a),length(a)-pos('"',a)+1);

и окончательно, все в одну строку

Код:

a:=copy(a,pos('db=',a),length(a)-pos('"',a)-5);