Btw:
Zitat von
EugenB:
Ich bins mal wieder xD
Wie kann ich dem Script eine vorhandene Variable / Klasse zuweisen? zb. Self:TForm ?
In einem Beispiel wird das schon erklärt, sorry ^^
Paar Bugs:
Wie kann ich ne Klasse im Script erstellen? zb das funktioniert nicht:
Delphi-Quellcode:
type
TMyClass = Class
public
procedure FormPaint(Sender: TObject);
end;
procedure TMyClass.FormPaint(Sender: TObject);
begin
end;
Zitat:
[Error] myprogram(12): Procedure "tmyclass" already exists
Could not compile the script
Oder wie kann ich Variablen in Klassen nutzen? in Records funktioniert es, in Klassen nicht
Delphi-Quellcode:
program myprogram;
uses
Classes, Forms;
type
TTestRec = record
FVar: String;
end;
TMyClass = Class
private
FMyVar: String;
public
function Create():TMyClass;
end;
Zitat:
[Error] myprogram(13): "end", "public" expected, but found scsIdentifier instead
[Error] myprogram(13): "end" expected, but found scsIdentifier instead
[Error] myprogram(13): ";" expected, but found : instead
[Error] myprogram(13): "=" expected, but found ; instead
[Error] myprogram(14): scsIdentifier, "(", "set", "class", "record", "type" expected, but found public instead
Could not compile the script
Dann hätte ich noch nen Bug-Fix:
Unit: uSygIncGraphics
Zeilen: 688-692
Neuer Code:
Delphi-Quellcode:
function TBrush_Bitmap(Self: TBrush): TBitmap;
// function TBrush.Bitmap(Self : pointer) : TBitmap;
begin
result := {$IFDEF FPC}TBitmap(Self.Bitmap){$ELSE}Self.Bitmap{$ENDIF};
end;
Anscheinend ist Dave im Urlaub xD
@Geri
wieso regelst du nicht zb. die ProjektGruppen, Projekte etc im Main Programm, dann sagst du nur diese unitX ist das ProjektX, und dann wenn du genau dieses Projekt brauchst rufste die unitX mit der Script Engine auf?