Скачать: CL | DM;

Список алиасов из BDE.   Найти похожие ветки 

← →
worldmen ©   (2006-08-29 10:12) [0]

Не могу найти где содержится список алиасов.
По моему был в TSession, но немогу найти, чтобы вывести его в Memo.

---

← →
worldmen ©   (2006-08-29 10:22) [1]

Нашел :
Session.GetAliasNames(Memo1.Lines);

---

← →
~SerJant~   (2006-08-29 13:45) [2]

у мну так сделано:

ComboBoxAliases - обычный TComboBox....

procedure TStartForm.FormCreate(Sender: TObject);
var
 TmpCursor: hDbiCur;
 Database_: DBDesc;
 rslt: DbiResult;
 vini:TIniFile;
 vAliasName:String;
begin
 //Добавление в список имён алиасов
 Check(dbiInit(nil));
 Check(DbiOpenDatabaseList(TmpCursor));
 Repeat
   rslt:=DbiGetNextRecord(TmpCursor, dbiNOLOCK, @Database_, nil);
   if (rslt <> DBIERR_EOF)
     and  (Database_.szDbType="INTRBASE")  then
       ComboBoxAliases.Items.Add(StrPas(Database_.szName));
 until (rslt <> DBIERR_NONE);
 Check(DbiCloseCursor(TmpCursor));

 //Добавили...я тут в INI-файл последний использованный алиас заношу
 vIni:=TIniFile.Create(GetCurrentDir+"\myProg.ini");
 vAliasName:=vIni.ReadString("alias_param", "alias_name", "0");
 Edit1.Text:=vini.ReadString("alias_param","username","");
 vIni.Free;
 If ComboBoxAliases.Items.IndexOf(vAliasName)>=0 then
   ComboBoxAliases.ItemIndex:=  ComboBoxAliases.Items.IndexOf(vAliasName)
 Else
   ComboBoxAliases.ItemIndex:=0;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c