Deutsches Lazarusforum

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.

Gibt es eine Möglichkeit das Standard Popupmenü eines TEdit zu erweitern?

Hat sich erledigt.
Irgendwie ist in der lpr Datei das einbinden der unit interfaces hinter forms geraten und in interfaces.finalization wird FreeWidgetSet aufgerufen.

In einem Programm verwende ich u.a. den Virtualtreeview.
Im Finalization Teil der Unit virtualtrees.pas wird eine Bitmap freigegeben. Im Verlauf dessen wird die function DeleteObject(GDIObject: HGDIOBJ): Boolean; aufgerufen, welche wiederum WidgetSet.DeleteObject(GDIObject); aufruft. Zu diesem ...

Schön (Träum) wäre es wenn die Lazarus-Programme sich unter Windows als auch unter Linux gleich verhalten und gleich dargestellt werden.


Lazarus verwendet das eingestellte Widgetset des jeweiligen Systems. Da kann das Verhalten durchaus unterschiedlich sein.
Wenn deine Programme auf jedem ...

Ich habe auch zwei getrennte Lazarus/FPC Installationen.
Blöd ist halt, dass die Probleme nicht immer auftauchen.
Aufräumen und neu compilieren. Dann geht es meistens erst mal.
Kurze Zeit später wieder diese ominösen Zugriffsverletzungen.

Wenn du was compilierst?
Die IDE? Ein Programm von dir? Ein "leeres" Formular? ...


Ja sorry, das hätte ich erwähnen sollen. Es handelt sich um ein Programm von mir.
Wenn ich versuche, dieses Problem in ein nachvollziehbares Projekt zu extrahieren, dann geht das nicht.
Heisst, das Problem tritt ...

Ich habe FPC/Lazarus mit fpcupdeluxe Stable/Fixes frisch installiert. Version ist Lazarus 4.7 (rev lazarus_4_6-58-g310cad12d8) FPC 3.2.2 x86_64-win64-win32/win64

Wenn ich 32 Bit compiliere, funktioniert alles einwandfrei.
Bei der 64 Bit Version bekomme ich Access Violations an verschiedenen Stellen ...

Git liest das Passwort nicht aus dem Standard Input. Wenn ich in der Shell eingebe, dann erscheint trotzdem die Eingabeaufforderung für das Passwort und ich muss es über die Tastatur eingeben.

Ja, das hatte ich auch vermutet aber wenn man versucht in den Inputstream zu schreiben, bevor Execute aufgerufen wurde, gibt es ein SIGSEGV.