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

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

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

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

Импорт CSV ASCII

Советы » ASCII и CSV » Импорт CSV ASCII

unit Cdbascii;

interface


uses

  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, DbiErrs, DbiTypes, DbiProcs, DB, DBTables;

type

  TAsciiDelimTable = class
(TTable)
  private

    { Private declarations }
    fQuote: Char;
    fDelim: Char;
  protected

    { Protected declarations }
    function
 CreateHandle: HDBICur; override
;
    procedure
 SetQuote(newValue: Char);
    procedure
 SetDelim(newValue: Char);
  public

    { Public declarations }
    constructor
 Create(AOwner: TComponent); override
;
    destructor
 Destroy; override
;
    { Эти свойства не должны больше публиковаться }
    property
 IndexFieldNames;
    property
 IndexName;
    property
 MasterFields;
    property
 MasterSource;
    property
 UpdateMode;
  published

    { Published declarations }
    property
 Quote: Char read
 fQuote write
 setQuote default
 '"';
    property
 Delim: Char read
 fDelim write
 setDelim default
 ',';
  end
;

procedure
 Register
;

implementation


uses
 DBConsts;

procedure
 Register
;
begin

  RegisterComponents('Data Access', [TAsciiDelimTable]);
end
;

constructor
 TAsciiDelimTable.Create(AOwner: TComponent);
begin

  inherited
 Create(AOwner);
  Exclusive := True
;
  TableType := ttASCII;
  fQuote := '"';
  fDelim := ',';
end
;

destructor
 TAsciiDelimTable.Destroy;
begin

  inherited
 Destroy;
end
;

{ Рабочий код }

function
 CheckOpen(Status: DBIResult): Boolean;
begin

  case
 Status of

    DBIERR_NONE:
      Result := True
;
    DBIERR_NOTSUFFTABLERIGHTS:
      begin

        if
 not
 Session.GetPassword then

          DbiError(Status);
        Result := False
;
      end
;
  else

    DbiError(Status);
  end
;
end
;

function
 TAsciiDelimTable.CreateHandle: HDBICur;
const

  OpenModes: array
[Boolean] of
 DbiOpenMode = (dbiReadWrite, dbiReadOnly);
  ShareModes: array
[Boolean] of
 DbiShareMode = (dbiOpenShared, dbiOpenExcl);
var

  STableName: array
[0..SizeOf(TFileName) - 1] of
 Char;
  SDriverType: array
[0..12] of
 Char;
begin

  if
 TableName = '' then

    DBError(SNoTableName);
  AnsiToNative(DBLocale, TableName, STableName, SizeOf(STableName) - 1);
  StrPCopy(SDriverType, 'ASCIIDRV-' + Quote + '-' + Delim);
  Result := nil
;
  while
 not
 CheckOpen(DbiOpenTable(DBHandle, STableName, SDriverType,
    nil
, nil
, 0, OpenModes[ReadOnly], ShareModes[Exclusive],
    xltField, False
, nil
, Result)) do
 {Повтор}
    ;
end
;

procedure
 TAsciiDelimTable.SetQuote(newValue: Char);
begin

  if
 Active then

    { DBError(SInvalidBatchMove); };
    fQuote := newValue;
end
;

procedure
 TAsciiDelimTable.SetDelim(newValue: Char);
begin

  if
 Active then

    { DBError(SInvalidBatchMove); };
    fDelim := newValue;
end
;

end
.

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

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

Импорт CSV ASCII

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

Категории

Статьи

Советы