Deutsches Lazarusforum

theo hat geschrieben: Fr 29. Aug 2025, 11:45

Code: Alles auswählen

procedure DatenAuslesen;

muss heissen

Code: Alles auswählen

procedure  TFormAuslesen.DatenAuslesen;

Genau das hatte ich gemeint. Was mich wundert ist, daß der Compiler nicht die fehlende Implementation der Methode TFormAuslesen.Datenauslesen moniert.

Schick mal Code zum Nachvollziehen. Irgendsowas muss es sein.

Das kommt daher, daß der Zugriff außerhalb einer Formularmethode statt findet.

Nachdem mir die KI halluziniert hat dass das nicht geht, frage ich mal wirkliche Experten ob und wie man so etwas darstellen könnte.

Die Künstliche Inkompetenz hat in dem Fall Recht. Die RTTI ist zur Kompilierzeit festgelegt, du kannst da nicht einfach Dinge (egal ob Eigenschaften, Felder oder ...

Bei mir das selbe.

Wenn ein Steuerelement erstellt wird, dann wird die virtuelle Klassenmethode GetControlClassDefaultSize aufgerufen. Bei TCustomPanel liefert die normalerweise eine Breite von 170 und eine Höhe von 50 Pixeln. Du könntest diese Methode also für dein TFlipbox überschreiben.

Die Angabe von von default ...

Normalerweise werden alle Fenster der Anwendung minimiert, wenn das Hauptformular minimiert wird.
Du kannst aber in Form1.OnWindowStateChange folgenden Code eintragen.


procedure TForm1.FormWindowStateChange(Sender: TObject);
begin
if WindowState = wsMinimized then form2.Show;
end;


Das hat ...

Ich vermute auch, dass der Zugriff auf Opendialog1 ausserhalb der Form geschieht.

type
TForm1 = class ( TForm )
Bitbtn1 : TBitBtn;
Opendialog1 : TOpenDialog;
procedure BitBtn1Click(Sender : TObject)
end;

implementation
procedure Test1;
begin
if OpenDialog1.Execute then // Fehler, da ...

Soweit ich weiß, müsste die procedure vom Linker entfernt werden.
Wenn die procedure jedoch auch im interface Teil aufgeführt wird, kann der Linker diese nicht entfernen, da die procedure ja von einem Programm benutzt werden könnte, welches die unit importiert. In dem Fall wäre auch eine Warnung ...

Zvoni hat geschrieben: Mo 21. Jul 2025, 09:18 Ich glaube mich auch an eine Option zu erinnern, dass man FPC zwingen kann, alle Units neu durchzukneten.

Start -> Aufräumen und Kompilieren

Also bei mir passiert exakt das, was ich erwartet habe. Beide Buttons schliessen das Fenster.
Lazarus 4.0RC2 (rev lazarus_4_0RC2-37-g6d590ab2ec) FPC 3.3.1 i386-win32-win32/win64

Ich hatte die 64 Bit Version 3.9 installiert. Habe es jetzt gelöscht und Fixes 4.0 installiert.
Jetzt läuft es.

Vielen Dank für das Tutorial. Ich hatte bislang noch nichts mit Datenbanken gemacht und auch den LazReport nur mal so am Rande verwendet.

Beim kompilieren gibt es keinen Fehler?

Im Datenmodul bei ZConnectionAdress diese Einträge löschen
Database: Q:\___LAZENTWICKLUNG\SMALLEXAMPLES\LAZREPORT\LazReportTutor\ADRESSEN.FDB
LibraryConnection: Q:\___LAZENTWICKLUNG\SMALLEXAMPLES\LAZREPORT\LazReportTutor\fb564\fbclient.dll

wie schaut es ...

Bei der mitgelieferten exe funktioniert es. Ich hatte zunächst mit Lazarus für 64 Bit versucht. Dann nochmal mit 32 Bit.
Da erhalte ich eine andere Fehlermeldung.

screenshot.png

Ich habe das Projekt dann mal mit Debuginfos compilieren lassen.
Die Exception wird verursacht bei

ZConnectionAdress ...

Ich hab's mal heruntergeladen, Zeos und LazReport installiert.

Das Programm startet auch. Ich hab's dann mal auf deutsch umgestellt.
Wenn ich dann neu starte und auf den Button "Vorschau" oder "Öffne Datenbank" klicke, erhalte ich eine Exception "invalid Pointer Operation"

Muß da noch etwas ...