UweRaabe

program Project69;

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

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

UweRaabe

unit FMX.MeshObjects;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.RTLConsts,
  System.Math, System.Math.Vectors, System.UIConsts, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Controls3D,
  FMX.Types3D, FMX.Objects3D, FMX.Layers3D, FMX.Objects, FMX.Menus, FMX.Edit, FMX.Colors, FMX.MaterialSources,
  System.StrUtils, System.Generics.Collections, FMX.Ani, FMX.Materials, System.Generics.Defaults;

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

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

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 IsPermanentConnection(const ALocalName: string): Boolean;
type
  PNetResourceArray = ^TNetResourceArray;
  TNetResourceArray = array [0 .. MaxInt div SizeOf(TNetResource) - 1] of TNetResource;
var
  I, BufSize, NetResult: Integer;
  Count, Size: LongWord;
  NetHandle: THandle;
  NetResources: PNetResourceArray;
begin

UweRaabe

function NetUseAdd(const RemoteName: string): string;
var
  NetResource: TNetResource;
  dwResult, dwBufSize, dwFlags: DWORD;
  hRes: DWORD;
  localName: array[0..1024] of Char;
begin
  dwFlags := CONNECT_REDIRECT;
  ZeroMemory(@NetResource, sizeof(TNetResource));
  with NetResource do begin

UweRaabe

<?xml version="1.0" encoding="utf-8"?>

<codetemplate version="1.0.0" xmlns="http://schemas.borland.com/Delphi/2005/codetemplates">
	<template name="array[" invoke="auto">
		<description>
			sized array declaration
		</description>
		<author>
			Uwe Raabe
		</author>

UweRaabe

unit uDesignNote;

interface

uses
  System.SysUtils, System.Classes, Vcl.Forms, Vcl.StdCtrls;

type
  TDesignNote = class(TComponent)
  private

UweRaabe

type
  TVariantArr = record
  private
    { implementation may differ }
    Data: Variant;
    Arr: TArray<Variant>;
    function GetItems(Index: Integer): Variant;
    procedure SetItems(Index: Integer; const Value: Variant);
  public
    class operator Implicit(A: TVariantArr): Variant; overload;