Jetz bin ich auf ein weiteres Problem gestoßen.
Mein Constructor sieht jetzt so aus:
constructor Create(var Height, Width: integer; var ListBox: TListBox; cIni: string);
Wenn ich aber meine Klasse mit
MyVar := TMyClass.Create(Form1.Height, Form1.Width, Form1.ListBox1, 'iniDat.ini');
aufrufe, dann sagt er mir, dass Form1.Height und Form1.Widt konstante Werte sind und nicht als variabel weitergegeben werden können. Da hab ich mir gedacht, ich geb nen Zeiger auf deren Adresse weiter...
Delphi-Quellcode:
type
IntegerZeiger = ^Integer;
...
constructor Create(
var Height, Width: IntegerZeiger;
var ListBox: TListBox; cIni:
string);
...
// andere unit
MyVar := TMyClass.Create(Pointer(@Form1.Height), Pointer(@Form1.Width), Form1.ListBox1, '
iniDat.ini');
// Fehler tritt hier auf
Da bekomm ich aber ne EAccessViolation vom Debugger.
Hat jemand ne Idee, wie ich das machen könnte?
MfG Niels