Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 498

•  TDictionary Custom Sort  6 523

•  Fast Watermark Sources  6 314

•  3D Designer  9 254

•  Sik Screen Capture  6 645

•  Patch Maker  7 021

•  Айболит (remote control)  7 030

•  ListBox Drag & Drop  5 900

•  Доска для игры Реверси  97 231

•  Графические эффекты  7 236

•  Рисование по маске  6 530

•  Перетаскивание изображений  5 401

•  Canvas Drawing  5 771

•  Рисование Луны  5 479

•  Поворот изображения  5 007

•  Рисование стержней  3 562

•  Paint on Shape  2 821

•  Генератор кроссвордов  3 698

•  Головоломка Paletto  2 980

•  Теорема Монжа об окружностях  3 784

•  Пазл Numbrix  2 495

•  Заборы и коммивояжеры  3 177

•  Игра HIP  2 144

•  Игра Go (Го)  2 079

•  Симулятор лифта  2 455

•  Программа укладки плитки  2 121

•  Генератор лабиринта  2 596

•  Проверка числового ввода  2 274

•  HEX View  2 604

•  Физический маятник  2 214

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Получение пути псевдонима и таблицы 2



Вот маленький примерчик того, как в Delphi можно получить информацию о псевдонимах. Для начала создайте новый проект с ListBox и тремя метками (с именамиListBox1, Label1, Label2 и Label3). Затем создайте обработчик события формы OnCreate с примерно следующим кодом:


procedure TForm1.FormCreate(Sender: TObject);
begin
  Session.GetAliasNames(ListBox1.Items);
end;

Теперь создайте обработчик OnClick для ListBox:


procedure TForm1.ListBox1Click(Sender: TObject);
var
  tStr: array[0..100] of char;
  Desc: DBDesc;
begin
  if ListBox1.Items.Count = 0 then
    exit;
  StrPLCopy(tStr, ListBox1.Items.Strings[ListBox1.ItemIndex], High(tStr));
  DbiGetDatabaseDesc(tStr, @Desc);
  with Desc do
  begin
    Label1.Caption := StrPas(Desc.szName);
    Label2.Caption := StrPas(Desc.szPhyName);
    Label3.Caption := StrPas(Desc.szDbType);
  end;
end;

Добавьте следующие модули в секцию 'uses' в верхней части модуля:


DB, DBTables, DBITypes, DBIProcs; 

Теперь вы можете увидеть путь для всех ваших стандартных псевдонимов (Paradox и dBase).





Похожие по теме исходники

A Star (нахождение кратчайшего пути)

Нахождение кратчайшего пути

Дейкстра: поиск кратчайшего пути




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте