UweRaabe

procedure TdmScripting.PrepareScripter(AScripter: TIDEScripter);
begin
  AScripter.DefineClassByRTTI(TTwinCATVar);
  AScripter.DefineClassByRTTI(TTwinCATVarBOOL);
  AScripter.DefineClassByRTTI(TTwinCATVarBYTE);
  AScripter.DefineClassByRTTI(TTwinCATVarINT);
  AScripter.DefineClassByRTTI(TTwinCATVarLONG);
  AScripter.DefineClassByRTTI(TTwinCATVarSINGLE);
  AScripter.DefineClassByRTTI(TTwinCATVarDOUBLE);
  AScripter.DefineClassByRTTI(TTwinCATVarSTRING);

UweRaabe

function BytesToHex(const ASource: TBytes): string;
var
  target: TBytes;
begin
  SetLength(target, Length(ASource)*2);
  BinToHex(ASource, 0, target, 0, Length(ASource));
  result := TEncoding.ANSI.GetString(target);
end;

function StringToHex(const ASource: string; AEncoding: TEncoding): string;

UweRaabe

unit Unit77;

interface

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

type
  TForm77 = class(TForm)

UweRaabe

program Project69;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  System.RegularExpressions,
  System.Classes;