Заработать, заработало но только на половину.
Вот код:
Цитата:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
copy(a,pos('db=',a),length(a)-pos('db=',a)+length('db='));
delete(a,pos('"',a),length(a)-pos('"',a)+1);
end;
|
a:string;
Из строки: slkjsljklskdgjskdjlkdjgsserdb=d;kl;sdlkhlsdhkkd"sd ;lskdgjsdlkjslkdj;lksd удаляется все после
" а перед
db= всё остается
т.е. получается строка вида: slkjsljklskdgjskdjlkdjgsserdb=d;kl;sdlkhlsdhkkd