Вопрос : Значения Рединг от UDL-архива (textfile)

Hi,

I хотел было бы иметь 2 функции которая прочитают следующий значения от результата источника
Data udl-архива «myudl.udl» (как внизу) = 'результат каталога br/>Initial MYCOMPNAME \ ServerInstance'< = 'class= " lineNumbers " >
1 >

 [oledb]
; Все после этой линии будет ОЛЕ DB initstring
Provider=SQLOLEDB.1; Данные Source=MYCOMPNAME \ ServerInstance; Интегрированный Security=SSPI; Упорствует обеспеченность Info=False; Первоначально Catalog=MyDBName;
class= " ясное " >


How 



class=

Ответ : Значения Рединг от UDL-архива (textfile)

будет линией 3 allways архива
это будет основно размежеванным шнуром
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

FileName var: шнур;
  Список: TStrings;
  ds, ic: шнур;
начните
  FileName: = «C:\yourfilename.udl»;
  Список: = TStringList.Create;
  попытка
    List.Delimiter: = «; »;
    List.StrictDelimiter: = True;
    List.LoadFromFile (FileName);
    List.DelimitedText: = список [2];
    ds: = List.Values [«источник данных»];
    ic: = List.Values [«первоначально каталог»];
    ShowMessage (ds + '' + ic);
  окончательно
    List.Free;
  конец;
конец;
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us