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

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

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

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

Создание таблицы FOXPRO

Советы » Другое » Создание таблицы FOXPRO

if

savedialog1.execute then

begin

if

FileExists(savedialog1.filename) then

DeleteFile(savedialog1.filename); //QUERY.DataSource НЕ ЗАПОЛНЕНО иначе взрыв гарантирован with

Session do

begin

ConfigMode := cmSession; try

AddStandardAlias('TEMPDB', extractfilepath(savedialog1.filename), 'FOXPRO'); //FOXPRO finally

ConfigMode := cmAll; end

; end

; with

database1 do

begin

databasename:='tst'; LoginPrompt := False

; Params.Values['PATH'] :=extractfilepath(savedialog1.filename); DriverName:='Microsoft FoxPro Driver (*.dbf)'; AliasName:='TEMPDB'; end

; query1.paramcheck := false

; Query1.DatabaseName := 'tst'; Query1.SQL.Clear; vrem:=Trim(ChangeFileExt(extractfilename(SaveDialog1.fileName),' ')); query1.sql.Add('CREATE TABLE '''+vrem+''' ('); query1.sql.Add('last_name CHAR(20),'); query1.sql.Add('first_name CHAR(15),'); query1.sql.Add('salary DECIMAL(10,2));'); //NUMERIC query1.ExecSQL; query1.close; end

; // от savedialog

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

Категории

Статьи

Советы

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