Unit TScripterUnit;
interface
uses Windows, Messages, SysUtils, Variants, Printers, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ScrMemo, ScrmPS, atScript, atPascal,
Vcl.ScripterInit;
Type
TEvent =
procedure(Sender: TObject)
of object;
TMyScripter=class
strict protected
FScript_Memo_Set: TatCustomScripter;
private
public
constructor create;
procedure Script_Memo_Ausbuchen_Set (Memo: TMemo; Pfad_SetFile:
string);
end;
var Script: TMyScripter;
implementation
constructor TMyScripter.create;
begin
FScript_Memo_Set:=TatCustomScripter.Create(
nil);
//Hier kracht es
end;
procedure TMyScripter.Script_Memo_Ausbuchen_Set(Memo: TMemo; Pfad_SetFile:
string);
var Code_Memo: TMemo;
begin
Code_Memo:=TMemo.Create(
nil);
Code_Memo.Lines.LoadFromFile(Pfad_SetFile);
FScript_Memo_Set.AddComponent(Memo);
FScript_Memo_Set.SourceCode := Code_Memo.Lines;
FScript_Memo_Set.Execute;
end;
initialization
Script := TMyScripter.Create;
finalization
if Script <>
nil then begin
Script.Free;
end;
end.