Pytanie : Czytelniczy wartość od UDL-segregować (textfile)

Cześć,

I polubić dwa funkcja który czytać wartość od udl-segregować "myudl.udl" (jak below)
Data Źródło rezultat = 'MYCOMPNAME \ ServerInstance'< br/>Initial Katalog rezultat = 'MyDBName'< br/>
1:
2:
3:

 [oledb]
; Everything po ten linia być TEN DB initstring
Provider=SQLOLEDB.1; Dane Source=MYCOMPNAME \ ServerInstance; Zintegrowany Security=SSPI; Upierać się Ochrona Info=False; Parafować Catalog=MyDBName;


How móc to robić?

Odpowiedź : Czytelniczy wartość od UDL-segregować (textfile)

ono być allways linia 3 the kartoteka
ono być podstawowy rozgraniczać sznurek
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var FileName: sznurek;
  Lista: TStrings;
  ds, ic: sznurek;
zaczynać
  FileName: = "C:\yourfilename.udl";
  Lista: = TStringList.Create;
  próba
    List.Delimiter: = "; ";
    List.StrictDelimiter: = Prawdziwy;
    List.LoadFromFile (FileName);
    List.DelimitedText: = Lista [2];
    ds: = List.Values ["Dane źródło"];
    ic: = List.Values ["Początkowy katalog"];
    ShowMessage (ds + '' + ic);
  w końcu
    List.Free;
  końcówka;
końcówka;
Inne rozwiązania  
 
programming4us programming4us