1
Ваши вопросы / Re: Две кнопки - переключатель в шаблоне
« : 29 Января 2026, 13:30:59 »
Благодарю за помощь!
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, SqlExpr;
type
TForm1 = class(TForm)
SQLConnection1: TSQLConnection;
SQLQuery1: TSQLQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
SQLConnection1.DriverName := 'MySQL';
SQLConnection1.Params.Values['HostName'] := '10.0.0.10';
SQLConnection1.Params.Values['Database'] := 'mydatabase';
SQLConnection1.Params.Values['User_Name'] := 'myusername';
SQLConnection1.Params.Values['Password'] := 'mypassword';
SQLConnection1.Open;
SQLQuery1.SQL.Text := 'SELECT * FROM mytable';
SQLQuery1.Open;
DBGrid1.DataSource := DataSource1;
DataSource1.DataSet := SQLQuery1;
end;
end.
Vdata1.Value;
GlobModul (var data1: Byte): Byte;
var
Fdata: Byte;
begin
Fdata := Vdata1.Value;
GlobModul (Fdata);
Vdata1.Value := Fdata;
end;
Объявлять и изменять массивы можно было всегда. Нельзя изменять только внешние переменные-массивы (которые считываются с OPC-сервера). Они доступны только для чтения.Здравствуйте!