Deutsches Lazarusforum

Du kannst das Projekt mi der Option -gw3 kompilieren. Dabei werden auch alle verwendeten Packages mit Debuggerinformationen übersetzt und du kannst nachvollziehen, wo genau das Problem auftritt.

Ich habe es getestet unter Win11 64. Compiliert und läuft einwandfrei.
Was mich zu Anfang etwas verwirrt hat, war, dass man "Würfeln" anklickt und nichts passiert.
Man muss zuerst ein neues Spiel starten.

Sehr gut gemacht!

OK, um das Thema dann abzuschließen, denke ich, sollte ich den Code aus meinem GitHub hier reinhängen, damit er im Forum verfügbar ist, falls es irgendwann das GitHub-Repo nicht mehr geben sollte.


Ja, das war die Ursache. Ich hatte mit der Version aus dem Thread hier gearbeitet. Nachdem ich nun ...

Ich habe ein kleines Dokument in Wordpad gemacht. Nach dem Zeilenumbruch nach 2 habe ich extra nochmal Enter gedrückt, um eine weitere leere Zeile zu bekommen.
Bei dem Export ohne das zusätzliche <br /> wird das ignoriert.


wordpad.png

htmlexport_ohne_br.png htmlexport_mit_br.png


Es geht ...

Wenn man nur mit der Entertaste eine neue Zeile einfügt, erscheint einfach ein leerer Paragraph \par in der rtf Datei. Bei Shift+Enter erscheint ein \line. Damit müsste doch was anzufangen sein.

Edit: Ich habe mal in urtf2html.pas in der Procedure DoSpecialChar im Case Block bei rtfPar vor dem ...

Hab da auch mal etwas mit rumgespielt.
Wenn man Leerzeilen nur mit der Entertaste im RTF Editor einträgt, erscheint kein RTFLine Token und wird somit auch nicht als <br /> exportiert.
Macht man es hingegen mit Shift+Entertaste, dann wird es eingefügt.

Cool, so funktioniert es auch mit Methoden, welche Parameter brauchen.
Hier ein Beispiel:

Die Direktive $M+ ist notwendig, damit einfache Klassen published Properties haben können.


unit Unit1;

{$mode objfpc}{$H+}{$M+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs ...

Zvoni hat geschrieben: Do 9. Okt 2025, 12:01 FormActivate zündet jedesmal, wenn deine Form den Fokus zurückerhält.
...

Wobei das zwar einen Memoryleak erzeugen würde aber keine Access Violation.
Meine Vermutung ist eher, dass Info bereits zuvor freigegeben wurde und nicht auf nil gesetzt.

So geht's

type
TBoolMethod = function : boolean of Object;
var
p : Pointer;
BoolMethod : TBoolMethod absolute p;

procedure TForm1.Button1Click(Sender: TObject);
var b : boolean;
begin
p := Form2.MethodAddress('BoolHallo');
TMethod(BoolMethod).code:= p;
TMethod(BoolMethod).data:=form2 ...

So geht's

type
TBoolMethod = function : boolean of Object;
var
p : Pointer;
BoolMethod : TBoolMethod absolute p;

procedure TForm1.Button1Click(Sender: TObject);
var b : boolean;
begin
p := Form2.MethodAddress('BoolHallo');
TMethod(BoolMethod).code:= p;
TMethod(BoolMethod).data:=form2;
b ...

Diese Prozedur funktioniert (nur mit TypeInfo, dazu braucht es kein rtti). Sie ruft allerdings nur eine Eventprozedur auf ohne einen Rückgabewert auszuwerten.
Vielleicht hilft es beim Überlegen



Funktioniert bei mir nicht. Ich habe eine unit2 mit einem TForm2, welches eine public procedure ...

Diese Prozedur funktioniert (nur mit TypeInfo, dazu braucht es kein rtti). Sie ruft allerdings nur eine Eventprozedur auf ohne einen Rückgabewert auszuwerten.
Vielleicht hilft es beim Überlegen



Funktioniert bei mir nicht. Ich habe eine unit2 mit einem TForm2, welches eine public procedure ...

Hmm,

ich habe mal versucht, das nach zu bauen aber bekomme schon bei nil in method zurück obwohl das übergebene Formular diese Methode bereitstellt. Wie kann man denn rttiType.GetMethod dann sinnvoll verwenden?

In lazhelphtml.pas in THTMLHelpDatabase.ShowURL Zeile 196 wird die Variable URLPath aus BaseURLPath und URLPath zusammengesetzt, während zwei Zeilen weiter oben die URLParameter sauber abgetrennt und dann aber nicht weiter verwendet werden.

Eine Möglichkeit wäre, die benötigten Parameter als Pfade ...

Ich bin mir nicht sicher, ob ich verstanden habe, was genau dein Ziel ist.
Aber das Package verwendet ja auch nur Units und wenn eine dieser Units ein Singleton Objekt exportiert, dann ist das doch immer dann der Fall, wenn das Package verwendet wird.

Wie gesagt, vielleicht habe ich das Ziel nicht ...