code kompiliert mit neuer lazarus-version nicht mehr

[Leberecht]

hallo,

hab mir eben die neue lazarus-version 0.9.30.4 (win32) installiert, vorher hatte ich 0.9.30 (fpc 2.4.2). jetzt kompiliert er mein projekt nicht mehr durch, er bleibt
an der fehlermeldung

Error: Call by var for arg no. 1 has to match exactly: Got "TFrmMeldungsfenster" expected "TForm"

hängen. ich übergebe dort (siehe code) ein formularobjekt(FrmMeldungsfenster) an eine funktion. vorher hat das problemlos funktioniert. da ich der funktion viele verschiedene formulare
übergebe, kann ich schlecht den exakten typen in der funktionsdeklaration vorher angeben.

Code: Alles auswählen

procedure setzeLookAndFeel(var oForm: TForm; iNr:longint=-1; iFormindex:longint=-1);
setzeLookAndFeel(FrmMeldungsfenster);

was kann ich da tun? kann man dieses verhalten irgentwo abschalten?

[martin_frb]

http://wiki.lazarus.freepascal.org/User ... parameters" onclick="window.open(this.href);return false;

Brauchst du den das "var"?

Wenn du nur existierend Forms uebergibst, und nur properties von denen aenderst, dann brauchst Du das nicht

Forms/Objecte, sind pointer. Nur wenn du

oForm := TFoo.Create
oForm := nil
oForm := OtherForm

machst, dann brauchst du var

[Leberecht]

habs jetzt raus. musste den pointer auf TForm-casten, dann gings.
also

setzeLookAndFeel(TForm(FrmMeldungsfenster));

er scheint jetzt strenger auf pointertypen zu achten als vorher bzw. keine automatischen casts mehr vorzunehmen. na, egal. ich musste ja nur ca. 500 stellen im code korigieren.

@martin_frm:

ja, ich weiss schon das forms/objekte pointer sind. ich wollte das deshalb in der funktionsdeklaration mit "var" zum ausruck bringen. also würde es reichen, wenn ich stattdessen:

procedure setzeLookAndFeel(oForm: TForm; iNr:longint=-1; iFormindex:longint=-1);

schreiben würde? würde er dann auch nur den pointer vom übergebenen formular in parameter 1 übergeben?
ich möchte ja in jedem fall nur den zeiger auf das formular übergeben und nicht das ganze formularobjekt mit all seinen daten.

[martin_frb]

habs jetzt raus. musste den pointer auf TForm-casten, dann gings.
ja, ich weiss schon das forms/objekte pointer sind. ich wollte das deshalb in der funktionsdeklaration mit "var" zum ausruck bringen. also würde es reichen, wenn ich stattdessen:

procedure setzeLookAndFeel(oForm: TForm; iNr:longint=-1; iFormindex:longint=-1);

schreiben würde? würde er dann auch nur den pointer vom übergebenen formular in parameter 1 übergeben?
ich möchte ja in jedem fall nur den zeiger auf das formular übergeben und nicht das ganze formularobjekt mit all seinen daten.

Wenn setzeLookAndFeel nur werte des FormObject aendert zB "oForm.Color := clRed" dann brauchst du kein var

[carli]

habs jetzt raus. musste den pointer auf TForm-casten, dann gings.
also

setzeLookAndFeel(TForm(FrmMeldungsfenster));

er scheint jetzt strenger auf pointertypen zu achten als vorher bzw. keine automatischen casts mehr vorzunehmen. na, egal. ich musste ja nur ca. 500 stellen im code korigieren.

Die Pointertypen werden nur so streng gehandelt, wenn es sich um var-Parameter handelt. In dem Fall ist var aber Schwachsinn, weil Klassen eh schon Referenzen auf die Instanz sind.

[Leberecht]

ok, verstanden. verhält es sich auch mit records so? d.h. wenn ich records übergebe, wird dann auch atomatisch die referenz übergeben?

[m.fuchs]

ok, verstanden. verhält es sich auch mit records so? d.h. wenn ich records übergebe, wird dann auch atomatisch die referenz übergeben?

Nein.

[carli]

Zur Zusammenfassung:
- Class und Pointertypen werden als Referenz übergeben
- object und record werden als Daten übergeben
- Argumente einer Prozedur werden als Daten übergeben
- bei const, out oder var werden Argumente einer Prozedur als Referenz übergeben (bei var x: TKlasse doppelt referenziert)
- var- und out-Parameter müssen EXAKT dem Typ entsprechen, denn sonst könnte die aufgerufene Funktion eine inkompatible Instanz in der Variablen ablegen