Deutsches Lazarusforum

Mathias hat geschrieben: Di 21. Jul 2026, 11:49 Bei den Pascal Classen, sieht man auch nirgends ein ^, somit muss dies das standardmässig aktiv sein.

Es ist auch vom Mode abhängig. Bei {$mode Delphi} braucht es kein ^. In den anderen Modi schon.

Ich vermute, in einem type geht dies nicht, nur bei var. Und eine ganze Klasse ist ja ein type.

var
i1:Integer;
i2:Integer absolute i1; // geht

type
a=Integer;
b=Integer absolute a; // geht nicht



Das ist ja klar, weil eine Typdeklaration ja keinerlei Adresse hat. Erst wenn eine Instanz ...

Ein Grund könnte sein, dass Records auf dem Stack und Klassen(instanzen) auf dem Heap liegen. Letztere sind eigentlich Zeiger.


Das ist aber bei der varianten Recorddefinition auch so. Es geht ja eigentlich nur darum, auf einzelne Bestandteile einer Variablen elegant zugreifen zu können oder ...

Wenn man das auskommentierte absolute mit reinnimmt, meckert der Compiler.
Die variante Recorddefinition macht exakt das gleiche und auch als Variablendeklaration im Hauptprogramm geht es.
Nur eben in der Klassendefinition nicht.


program Project1;

type
TTest = class
EinRecord : record
case ...

Ich habe eben versucht, eine absolute Definition in einer Klasse zu verwenden. Das akzeptiert der Compiler nicht.
Ist bei Delphi das gleiche.

Hat jemand eine Idee, weshalb?
Einen varianten Record kann man definieren.
Eine Property mit Setter/Getter Methode natürlich auch, die einen Typecast macht.

Ich kenne eigentlich nur ein Szenario, bei dem der Wechsel von einer erfolgreich nutzbaren 32-bit-Anwendung auf 64-bit fehlschlägt: Pointer, genauer: Typumwandlungen von Pointer zu Integer und umgekehrt.


Ja, davon mache ich regen Gebrauch. Aber der FPC Compiler gibt hierbei auch Warnungen aus ...

Ich habe mir jetzt nochmal zusätzlich FPC/Lazarus stable installiert.
Lazarus 3.6 (rev lazarus_3_6) FPC 3.2.2 x86_64-win64-win32/win64

Da treten die genannten Probleme nicht auf. Stellt sich jetzt die Frage, wie bekomme ich das in ein nachvollziehbares Beispiel extrahiert?

Zvoni hat geschrieben: Di 14. Jul 2026, 10:19 Und was willst du einstellen?
Das die Breakpoints als inaktiv gezeigt werden,

Genau das. Ich hatte halt versehentlich den Release Mode eingestellt.

Wenn ich in Delphi ein Projekt im Release Mode compiliere und Breakpoints setze, zeigt mir Delphi die sogleich als inaktiv an.
Lazarus macht das nicht. Ich hatte mich gewundert, weshalb der Debugger nicht anhält.

Kann man das irgendwo einstellen?

Ich finde michls Berechnung etwas skurril, insbesondere die Quersumme

Wie ich es gemacht hätte ohne das hin und hercasten zu string

//Quersumme
function quer(ein : integer) : integer;
var d : integer;
begin
Result := 0;
repeat
d:=ein mod 10;
Result:=Result+d;
Ein:=Ein Div 10;
until Ein ...

In diesem Video erklärt Ricardo Leppe, dass man jede Addition ganz einfach überprüfen kann, indem man die Quersumme der Operanden vom Ergebnis abzieht. Die Quersumme daraus ergibt immer 9.

Im Video sagt er, dass das auch für die Multiplikation zutrifft. Das stimmt nicht ganz.
Hier muß die Quersumme ...

Kann es schaden?

theo hat geschrieben: Fr 12. Jun 2026, 12:01 Es fängt damit an, dass bereits unter Linux jedes Widgetset eine andere Vorstellung hat, was da rein gehört.

Genau deswegen hätte ich ja gerne das "System" Menü, nur eben um zwei eigene Punkte ergänzt.

Zvoni hat geschrieben: Do 11. Jun 2026, 16:11

theo hat geschrieben: Mi 10. Jun 2026, 15:24 Eher nicht. Das kommt vom Widgetset und sieht überall anders aus.

Wobei (zumindest unter Windows) ein Popup-menu am Ende auch nur ein "normales" Menu ist, welches vom OS ein Handle zugewiesen bekommt.
...

Stellt sich die Frage, wie komme ich an dieses Handle?

theo hat geschrieben: Mi 10. Jun 2026, 15:24 Eher nicht. Das kommt vom Widgetset und sieht überall anders aus.

Man kann es aber durch ein eigenes TPopupmenu ersetzen.

Danke, ich hatte gedacht, dass ich mir den Aufwand sparen könne. Weil an sich ist das ja durchaus sinnvoll. Ich brauch halt noch zwei Punkte zusätzlich.