1 de >
[oledb] ; Tout après cette ligne est un VIEUX DB initstring Provider=SQLOLEDB.1 ; =MYCOMPNAME \ ServerInstance de point d'émission ; Security=SSPI Integrated ; Persistent la sécurité Info=False ; Catalog=MyDBName initial ; est-ce que class= >
1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 :
nom de fichier de variété : corde ; Liste : TStrings ; ds, IC : corde ; commencer Nom de fichier : = « C:\yourfilename.udl » ; Liste : = TStringList.Create ; essai List.Delimiter : = « ; » ; List.StrictDelimiter : = rectifier ; List.LoadFromFile (nom de fichier) ; List.DelimitedText : = liste [2] ; ds : = List.Values [« point d'émission »] ; IC : = List.Values [« catalogue initial »] ; ShowMessage (ds + ''+ IC) ; finalement List.Free ; extrémité ; extrémité ;