Deutsches Lazarusforum

svgviewer aber auch fpv3dviewer

Wenn ich die Beispielprogramme aus Examples verwende, dann geben die nur ein schwarzes Viereck mit weissem Rand aus. (z.B. svgviewer)

Das muss aber schonmal funktioniert haben, wenn ich mir die wiki Seite so anschaue.

Hat jemand einen Tip, wo man da schrauben muss?

Niesi hat geschrieben: ↑

So 17. Mär 2024, 09:03

...
Eine weitere Erfahrung von mir ist: Die, die nichts zustande bringen, motzen am lautesten ...

Haha, das gilt nicht nur in der Softwareentwicklung sondern auch in der Politik

Ich hab das bei mir so gelöst, daß ich immer ein Startprogramm habe, welches meine eigentliche Applikation startet. Wenn die Applikation upgedated werden will, dann beendet diese sich mit einem bestimmten Errorlevel und das Startprogramm lädt dann das Update herunter, installiert es und startet die ...

Hatte ich auch kurz überlegt. Da aber im geplanten Programm noch sehr viel mehr Files eingelesen und sortiert und dann weiter verarbeitet müssen, hatte ich Bedenken, dass StringLists (und das sortieren von Strings) zu aufwändig werden könnte. Wenn die Daten so vorliegen, wie in Deinem Beispiel, dan...

Was mir bei dieser ganzen Geschichte noch nicht so ganz klar ist. Wenn ich sage, das TStressList eine spzialisierte Version von TObjectList mit Einträgen vom Typ TStressEntry sein soll, wieso muß ich das dann beim sortieren bzw. erzeugen der Liste nochmal angeben?

Alternativ kann man die Sortierfunktion schon beim erzeugen der Liste angeben und ruft dann Sort ohne Parameter auf.

So, jetzt aber. Man beachte den Aufruf von Sort. program testproject; {$mode objfpc}{$H+} uses Classes, SysUtils, Generics.Collections, Generics.Defaults, Math; type { TStressEntry } TStressEntry = class ID: integer; stress: double; end; TStressList = specialize TObjectList<TStressEntry>; var i: int...

Mein voriger Beitrag ist falsch. Es compiliert zwar aber sortiert nicht. Der Comparer muß beim TStressList.Create angegeben werden.

Oh, da hat man TListSortCompare entfernt und das mit einem Interface IComparer umgebaut. Deine zu sortierende Klasse kann jetzt eine Function OnComparison definieren, die dann aufgerufen wird. Ich hab das mal umgebastelt. Ich habe deutsche Formatsettings, deshalb habe ich den Trennpunkt bei den Floa...

Die ListsortCompare Funktion ist mit Pointerparametern definiert, weil ja alles mögliche in der Liste stehen kann. Übergeben werden aber immer die tatsächlich in der Liste gespeicherten Objekte - und das sind in Deinem Fall die TStressEntry. Da Id als Integer definiert ist, kannst du das natürlich a...

Das ist freilich wahr.

... function CompareStressList(item1: TStressEntry; item2: TStressEntry): integer; begin // Definiere, was passiert, falls einer der Vergleichsparameter nil ist. if (item1.id = nil) and (item2.id = nil) then exit(0); if item1.id = nil then exit(-1); if item2.id = nil then exit(1); ... Ich denke, de...

Bei den vorcompilierten Binaries wird die RTL immer ohne Debuginformation erstellt. Aber ist ja auch nict schlimm. Meinem Problem gehe ich dann eben in der 64 Bit Version auf die Spur.

@fliegermichl Das könnte damit zu tun haben, da Du die 'fpcupdeluxe-i386-win32.exe' zur Installation von FPC und Lazarus verwendet hast. Wenn Du ein Win64-System hast, würde ich vorschlagen, dass Du mal eine Testinstallation mit der 'fpcupdeluxe-x86_64-win64.exe' durchführst. Eventuell ist dann ja ...