从连接字符串取出用户名和密码(100)

从udl中取出用户名和密码连接字符串取出用户名密码adoconnection取出用户名和密码任何一种方式都可，小弟在线等

pos

象adoconnection的连接字符串比如:'Provider=SQLOLEDB.1;Password=' + sPwd + ';Persist Security Info=True;' + 'User ID=' + sUser + ';Initial Catalog=' + sDB + ';Data Source=' + sSource;可以找到关键字,取"="号后面的,分号前面的.

有没有更简单一些的？

procedure TForm1.FormCreate(Sender: TObject);Var Str,nStr:String; UserName,Pwd:String; Index,Index2:Integer;begin Str:=ADOConnection1.ConnectionString; nStr:=UpperCase(Str); Index:=Pos( UpperCase('User ID'), nStr); while (Index<Length(nStr)) and (nStr[Index]<>'=') do Inc( Index); Inc(Index); Index2 := Index+1; while (Index2<Length(nStr)) and (nStr[Index2]<>';') do Inc( Index2); UserName := Copy(Str,Index, Index2-Index); Index:=Pos( UpperCase('Password'), nStr); while (Index<Length(nStr)) and (nStr[Index]<>'=') do Inc( Index); Inc(Index); Index2 := Index+1; while (Index2<Length(nStr)) and (nStr[Index2]<>';') do Inc( Index2); Pwd := Copy(Str,Index, Index2-Index); caption:= UserName +' '+Pwd;end;

晕，有些复杂了，难到这是最简单的了吗？

多人接受答案了。