Как сделать калькулятор в Delphi?

Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.

Как Delphi реализует многоплатформенную разработку?

Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...

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

Советы » Alias » Получение пути псевдонима и таблицы 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).

Другое по теме:

Категории

Статьи

Советы

Copyright © 2024 - All Rights Reserved - www.delphirus.com