Vraag : De waarden van de lezing van uDL-Dossier (dataset met teksten)

Hallo, zou

I twee functies willen hebben die na waarden van een udl-dossier „myudl.udl“ (als onderstaand)
Data Bronresultaat = 'MYCOMPNAME \ ServerInstance'< br/>Initial het resultaat van de Catalogus = 'MyDBName'< br/>
1 zullen lezen:
2:
3:

 [oledb]
; Alles na deze lijn is Het initstring van ole- OB
Provider=SQLOLEDB.1; Gegevens Source=MYCOMPNAME \ ServerInstance; Geïntegreerde Security=SSPI; Duur Veiligheid Info=False voort; Aanvankelijke Catalog=MyDBName;


How kan dit worden gedaan?

Antwoord : De waarden van de lezing van uDL-Dossier (dataset met teksten)

het is allways lijn 3 van het dossier
het is fundamenteel een afgebakend koord
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var FileName: koord;
  Lijst: TStrings;
  ds, ic: koord;
begin
  FileName: = „C:\yourfilename.udl“;
  Lijst: = TStringList.Create;
  probeer
    List.Delimiter: = „; “;
    List.StrictDelimiter: = Waar;
    List.LoadFromFile (FileName);
    List.DelimitedText: = Lijst [2];
    ds: = List.Values [„Gegevensbron“];
    ic: = List.Values [„Aanvankelijke catalogus“];
    ShowMessage (ds + ''+ ic);
  tot slot
    List.Free;
  eind;
eind;
Andere oplossingen  
 
programming4us programming4us