Forum: Multimedia
by TiGü,
17. Jan 2024
@bernhard_LA Hast du hier mal in die ZIP geguckt oder ging das jetzt unter?
Forum: Multimedia
by TiGü,
16. Jan 2024
Hier meine Verbesserungen.
LoadData kann analog wie SaveData verbessert werden, dass überlasse ich dir aber als Übung.
Lesetipp: https://blog.dummzeuch.de/2019/12/12/accessing-bitmap-pixels-with-less-scanline-calls-in-delphi/
Die Bitmap am besten auch in C:\Temp werfen oder über den anderen Button eine neue Öffnen.
Forum: Multimedia
by TiGü,
16. Jan 2024
TCluster wird eine Klasse und ClusterElements eine Liste.
Ich bin gleich soweit und stelle das Ergebnis gleich rein.
Forum: Multimedia
by TiGü,
16. Jan 2024
Was ist das denn für ein Anfängerfehler in procedure TKMeans<T>.GroupData2NearestCluster?
SetLength(UpdateCluster.ClusterElements,
length(UpdateCluster.ClusterElements) + 1);
Das wird doch bei jeden neuen Vergrößern alle Daten umkopiert! Und das wird sehr schnell sehr groß!
Forum: Multimedia
by TiGü,
16. Jan 2024
Dafür wäre ein durchkompilierbares Projekt als Zip-Archiv ganz hilfreich.
So muss man ganz schön viel machen, bis das der Quelltext am Laufen ist.