Frage : Lesewerte von der UDL-Akte (Textdatei)

Hallo, möchte

I zwei Funktionen haben, die folgende Werte von einem Udlakte „myudl.udl“ (wie below)
Datenquelleresultat = 'MYCOMPNAME \ ServerInstance'< Br/>Initial Katalogresultat = 'MyDBName'< Br/>
1 lesen:
2:
3:

 [oledb]
; Alles nach dieser Linie ist ein ALTES initstring DB
Provider=SQLOLEDB.1; Datenquelle =MYCOMPNAME \ ServerInstance; Integriertes Security=SSPI; Bestehen Sicherheit Info=False weiter; AnfangsCatalog=MyDBName;


How kann dieses getan werden?

Antwort : Lesewerte von der UDL-Akte (Textdatei)

es ist allways Linie 3 der Akte
es ist im Allgemeinen eine abgegrenzte Schnur
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var-Dateiname: Schnur;
  Liste: TStrings;
  ds, IC: Schnur;
anfangen
  Dateiname: = „C:\yourfilename.udl“;
  Liste: = TStringList.Create;
  Versuch
    List.Delimiter: = „; “;
    List.StrictDelimiter: = ausrichten;
    List.LoadFromFile (Dateiname);
    List.DelimitedText: = Liste [2];
    ds: = List.Values [„Datenquelle“];
    IC: = List.Values [„Anfangskatalog“];
    ShowMessage (ds + ''+ IC);
  schließlich
    List.Free;
  Ende;
Ende;
Weitere Lösungen  
 
programming4us programming4us