8
List,Options : TStringList;
9
Env : TODBCEnvironment;
13
useDefault:=(ParamCount>0) and (Paramstr(1)='-d');
15
Env:=DefaultEnvironment
17
Env:=TODBCEnvironment.Create(Nil);
19
Writeln('Handle is : ',Env.Handle);
20
List:=TStringlist.Create;
21
Options:=TStringList.Create;
22
Writeln('List of drivers :');
23
Env.GetDriverNames(List);
24
Writeln('Count : ',List.Count);
25
For I:=0 to List.Count-1 do
26
Writeln(i:2,' : ',List[i]);
27
Writeln('List of driver options :');
28
For I:=0 to List.Count-1 do
30
Env.GetDriverOptions(List[i],Options);
31
Writeln('Options for driver ',List[i],' : ');
32
For J:=0 to Options.Count-1 do
33
Writeln(' ',Options[j]);
35
Env.GetDataSourceNames(List,dtBoth,True);
36
Writeln('List of datasource names : ');
37
For I:=0 to List.Count-1 do
38
writeln(i,' : ',List[i]);
42
If not UseDefault then