Программное добавление записи в БД

[limarukraine]

Доброго времени суток. Мой вопрос: можно ли добавить в Delphi запись в БД не вручную, а програмно ? У меня программа получает данные из COM порта. Я хотел бы оформить в качестве БД массив где один столбец номер по порядку (или интервал времени) а второй - значение импульса (0 или 1) из COM порта

[Heneken87]

День добрый - можно. Главное определить какой БД пользоваться. Для вашей задачи создавать БД(в ее привычном понимании) не имеет смысла. Данные с COM порта вы можете записывать в файл. INI или XML например. ПРимер для INI:
в uses добавьте - System.IniFiles
в корне вашей ПО создайте файл DATA.INI
в private формы добавьте поле

 FDataINI: TIniFile;

в событии создание формы (onCreate) пропишите код:

 FDataINI := TIniFile.Create(ExtractFilePath(Application.ExeName) +'DATA.INI')

// ExtractFilePath(Application.ExeName ) - Это путь до места, где лежит ваше ПО
запись в INI:

FDataINI.WriteString('NUMBER','INTERVAL','0.4');
FDataINI.WriteString('NUMBER','VALUE_COM','1');
FDataINI.UpdateFile;

Если откроете файл, то увидите вот такое:

[NUMBER]
INTERVAL=0.4
VALUE_COM=1

Заголовок - NUMBER это как пример, вместо него вы можете использовать что угодно. Номер порта например.
Чтение происходит вот так:

FDataINI.ReadString('NUMBER','INTERVAL','0');
FDataINI.ReadString('NUMBER','VALUE_COM','0');

,'0' - это значение по умолчанию, на случай если в INI нет значение для блока 'NUMBER' с атрибутом 'VALUE_COM'/'INTERVAL'

Примерно так будет выглядеть unit формы:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.IniFiles, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FDataINI: TIniFile;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  FDataINI.WriteString('NUMBER','INTERVAL','0.4');
  FDataINI.WriteString('NUMBER','VALUE_COM','1');
  FDataINI.UpdateFile;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   FDataINI := TIniFile.Create(ExtractFilePath(Application.ExeName) +'DATA.INI');
end;

end.

P.S: Удачи в кодинге =)