Deutsches Lazarusforum

Ich habe einen anderen mysteriösen Fehler beim Compilieren:

Error: Multiple defined symbol "$unwind$FPG_BASE$_$TFPGMIMEDATABASE_$__$$_CREATE$$TFPGMIMEDATABASE"

Warum tritt dieser Fehler auf?

Wo ist das Symbol überhaupt definiert? Der Compiler zeigt mir nämlich keine Codezeile an!


Das wird ...

Ohne Umweg über den String sollte es so gehen

procedure TForm1.Button1Click(Sender: TObject);
var
iter: integer;
XYColor: LongInt;
mdColor: TFPColor;
begin
iter:= 11;
XYColor := Iter*100000;
MdColor:= TColorToFPColor(TColor(XYColor));
end;



Den Typecast braucht es aber mMn nicht ...

So habe ich die Lösung gefunden:

MdColor:= TColorToFPColor(StringToColor(IntToStr(XYColor )));

Panel2.canvas.drawPixel(XS, YSH - YS, MdColor);


Diese komplizierte Mehrfachumwandlung sieht etwas unbeholfen aus.
Wenn du uns erklären würdest, was dein "Integerwert" genau bedutet, könnte man das ...

Mario Peters hat geschrieben: Mi 10. Dez 2025, 13:43

Code: Alles auswählen

  FClipBoard.Delete(DelIndex); // Auch das löst mein Problem nicht

Ich bin mir ziemlich sicher, dass dies dein Problem löst.
Vielleicht hast du noch ein zusätzliches Problem, aber kaum mit der selben Fehlermeldung an der selben Stelle.

TColorToFPColor() ?

https://wiki.freepascal.org/Colors

Es wäre ganz gut, wenn du die Deklaration von FClipBoard angeben würdest.
Dieses "Casting" macht auch keinen Sinn:

TStringList(FClipBoard.Delete[DelIndex]);

Aber hauptsächlich verwendest du eckige Klammern. Das ist falsch. Es ist eine Procedure. So geht's bestimmt:

FClipBoard.Delete(DelIndex ...

Vielleicht ist die Lazarus und LCL Version die aktuell auf dem Main ist auch einfach etwas instabil, das kann vorkommen. Hast du das Problem auch bei dem 4.4 Release?


Ich habe bei Lazarus nie die Release Version installiert, immer main/trunk.
Ich probiere es später noch auf einem anderen ...

Hier gibt es ein Delphi Beispiel, welches auch auf Lazarus funktioniert.
Vielleicht hilft es:
https://docwiki.embarcadero.com/CodeExa ... h_(Delphi)

Bei mir geht's (wieder).

OK, ich habe mal die letzte "Release" Version von hier installiert:
https://github.com/davidbannon/libqt6pas/releases/tag/v6.2.10

Das hat aber nicht geholfen.

Seither sehe ich nur noch eine Änderung in diesem Bereich:
Qt5, Qt6 bindings: don't export unneeded symbols in libQt5Pas.so.1 and ...

Danke für die Antwort.
Stimmt, Die libQt6pas Version muss ja auch noch passen.
Ich habe tatsächlich die von der Distro und die ist nicht gerade neu.
Hatte ja auch vermutet, dass es wohl an den Libs liegt.
Das schaue ich mir morgen mal an.

Benutzt jemand eine Qt6 IDE und hat auch folgendes Problem?
Projekt -> Projekteinstellungen -> Einstellungen Anzeigen -> Schließen -> Absturz.

Irgendwas bei:
Thread 1 "lazarus" received signal SIGSEGV, Segmentation fault.
0x00007ffff67de870 in QGuiApplicationPrivate::processNativeEvent(QWindow ...

Das sehe ich auch so.
Ich beschäftige mich kaum mit KI-Fragen, aber aus meiner Sicht ist KI ist dann brauchbar, wenn man über das Wissen verfügt, die Ergebnisse zu beurteilen.
Einfaches Beispiel: Deepl. Ich verwende das oft, um Forenbeiträge auf Englisch zu übersetzen.
Das vereinfacht vieles und ...

Ich verstehe kein einziges Wort.
Ich weiss nur, dass fpGUI in Lazarus den "alpha" Status hat.
Das bedeutet, dass man froh sein kann, wenn überhaupt etwas funktioniert.

Du musst halt auf die SortOrder reagieren.
Schnelles Bsp. zur Demo:

procedure TForm1.StringGrid1CompareCells(Sender: TObject; ACol, ARow, BCol,
BRow: Integer; var Result: integer);
var
v1, v2: Integer;
s1, s2: string;
begin
if ACol = 0 then // Spalte 0 numerisch
begin
v1 := StrToIntDef ...