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

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

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

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

Как скопировать BDE таблицу

Советы » BDE » Как скопировать BDE таблицу

Данный пример копирует таблицу, достаточно только указать каталог, имя исходной таблицы и имя каталога куда копировать остальное сделает BDE, скопирует таблицу, все индексы и связанные файлы.

uses

DB, DBTables, DbiProcs, DbiErrs, DbiTypes; procedure

CopyTable(FromDir, SrcTblName, ToDir, DestTblName: String

); var

DBHandle: HDBIDB; ResultCode: DBIResult; Src, Dest, Err: Array

[0..255] of

Char; SrcTbl, DestTbl: TTable; begin

SrcTbl := TTable.Create(Application); DestTbl := TTable.Create(Application); try

SrcTbl.DatabaseName := FromDir; SrcTbl.TableName := SrcTblName; SrcTbl.Open; DBHandle := SrcTbl.DBHandle; SrcTbl.Close; ResultCode := DbiCopyTable(DBHandle,false

, StrPCopy(Src,FromDir + '' + SrcTblName), nil

, StrPCopy(Dest,ToDir + '' + DestTblName)); if

ResultCode <> DBIERR_NONE then

begin

DbiGetErrorString(ResultCode,Err); raise

EDatabaseError.Create('While copying ' + FromDir + '' + SrcTblName + ' to ' + ToDir + '' + DestTblName + ', the ' + ' database engine generated the error ''' + StrPas(Err) + ''''); end

; finally

SrcTbl.Free; DestTbl.Free; end

; end

;

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

Категории

Статьи

Советы

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