[Eugene287]

Добрый день!
Имеется строка:
s2:='CN=Иванов Иван Иванович, OU=Моя компания, O=экземпляр, STREET=г.Минск, ул.Ленина д.15 кв.45, L=test, ST=BPS, C=BY, OID.2.5.4.12=программист, OID.2.5.4.4=Иванов, OID.2.5.4.41=BPS-Иван Иванович';

необходимо разобрать строку по параметрам..Например: CN:='Иванов Иван Иванович';
Adress:= подстроке с параметром STREET

как это сделать?

вот пример моего кода:

Код:

try
  sl:=TStringList.Create;
    SplitText(s2, sL);
    for i := 0 to sl.Count - 1 do begin
          if pos('OID.2.5.4.12=',sl[i])<>0 then begin
          doljn:=sl[i];
          n:=length(doljn);
          doljn:=copy(doljn,16,n);
          end;
          if pos('OID.2.5.4.4=',sl[i])<>0 then begin
          familia:=sl[i];
          n:=length(familia);
          familia:=copy(familia,14,n);
          end;
          if pos('OID.2.5.4.41=',sl[i])<>0 then begin
          imia_otchestvo:=sl[i];
          n:=length(imia_otchestvo);
          imia_otchestvo:=copy(imia_otchestvo,15,n);;
          end;
    end;
          showmessage(Должность: '+doljn);
          showmessage('ФИО: '+familia+' '+imia_otchestvo);

  finally
    sL.Free;
  end;

Но тогда засада с адресом..как быть?