Как в TADOConnection получить указанную проперть? Или как корректно проверить пароль на пустоту?

Привет!
"Denis Popov" <forum@rsdn.ru> сообщил/сообщила в новостях следующее: news:393159@news.rsdn.ru...
Как в TADOConnection получить указанную проперть? Или как корректно проверить пароль на пустоту?

Приблизительно так можно получить указанную проперьть:
// На основе ExtractUserID из модуля ADODB.PAS строка 1864
function ExtractParamFromADOConnection(ConnStr: string;ParamStr:String): string;
var
UIDPos, UIDLen: Integer;
begin
UIDPos := Pos(AnsiUpperCase(ParamStr), AnsiUpperCase(ConnStr)) + Length(ParamStr);
if UIDPos > Length(ParamStr) then
begin
UIDLen := Pos(';', Copy(ConnStr, UIDPos, 255)) — 1;
if UIDLen=-1 then
UIDLen:=Length(ConnStr)-UIDPos+1;

Result := Copy(ConnStr, UIDPos, UIDLen);
end
else
Result := '';
end;

--
Юрий Жуков