Deutsches Lazarusforum

Moin zusammen,
ich habe tatsächlich eine email erhalten wegen dem Pascal Code.
Der Sohn hat zurück geschrieben:

Hello,

My father, now very old, who created this website to capitalize and share his passion for developing numerical computing algorithms, would be very happy if his work could benefit ...

Super, danke Dir Theo, das wusste ich nicht.
Damit hast Du mein Nichtwissen aufgebessert und die Frage komplett beantwortet.
Einen schönen Sonntag noch allen.

Hallo zusammen, ein eigentlich triviales Problemchen,
fast schon zu peinlich um überhaupt zu fragen :P , aber ich tue dies totzdem, da ich grade in einer ähnlichen Form darüber gestoplert bin.
Der verkürzte Code, worum es geht:

program Project1;

var a,b:Byte;

begin
a:=50;
b:=250;
if a-b < 10 ...

Ich habe den Herrn grade mal angeschrieben, zwecks Copyright/Urheberrecht....
Mal gucken ob da was zurück kommt.....

Eine interessante Seite mit viel Source Code in Pascal.
[link eben geändert]
https://web.archive.org/web/20231002075 ... ascal.html

Jetz mal eben zur Zeitersparnis:
Eine Funktion von mir mit Canvas.Pixels[] dauert ca 35 Sekunden bei einer PaintBox mit 310*170 Pixel.
Für alle 4 Funktionen (links, rechts, oben , unten)benötige ich also 140 Sekunden....

So habe ich mal geteset wie lange es dauert für eine Pixelabfrage mittels ...

Jetzt muss ich nochmal rückfragen :

Ich wollte eben eine Zeitmessung machen.
Das geht in Windows ja besonders gut mittels QueryPerformanceCounter .....
dazu wird jedoch die Unit Windows benötigt.
Wenn ich aber die Unit mit aufnehme, gibt es ein Problem mit TBitmap.Create :roll:
siehe Screenshoot ...

Coole Seite Mathias, Danke Dir auch für den Code.

Auch das Package von wp_xyz SEHR interessant . Hab ich gleich mal installiert und läuft auf Anhieb.

Mein momentaner Controller ist ein PIC16F17126 im SO-14
Hier schreibe ich grad die entsprechenden Hardware Funktionen für
I2C ADU DAC RS232. Das ist ...

Moin zusammen,
ooooh, so viele neue Anregungen, :shock:
die Infos reichen ja noch bis Pfingsten... :)

Erstmal auch vielen Dank an wp_xyz, das ist natürlich eine ganz andere Herangehensweise.
Diese Units/Funktionen kannte ich noch garnicht.

@0815
Du hast völlig recht, ich brauche überhaupt keinen ...

Ersteinmal vielen Dank für eure Anregungen und auch euren Code.

Dickes Danke an Jörg, das hat sofort geklappt und geht natürlich WESENTLICH schneller.
Bernd kam eben noch mit Code hinterher.
Den schaue ich mir auch nochmal genauer an, lief auf Windows nicht sofort, habe es aber hinbekommen.

Es ...

Hallo zusammen,
ich dachte eben meine Software ist abgestürzt... :shock:
Habe dann festgestellt, das meine vermutlich völlig falsche Vorgehensweise für mein Problem daran schuld ist.

Was will ich machen ?
Ich möchte in einer Paintbox feststellen wo sich der erste Pixel ungleich weiss befindet.
und ...

Guten Morgen,
ohne jetzt zusätzlich Verwirrung stiften zu wollen, vielleicht fehlt mir auch noch ein Kaffee... :wink:
wundere ich mich jetzt auch:

Ich bin mal mit der rechten Maustaste auf die Zeile FreeAndNil(o) gegangen
dann " Finde Deklaration FreeAnd Nil " geklickt.
es öffnet sich die Datei ...

Ich habe das Beispiel von fliegermichl grad probiert.

Lazarus 3.0 (rev lazarus_3_0) FPC 3.2.2 x86_64-win64-win32/win64

Bei mir funktioniert das problemlos.

Guten Morgen,
ich habe mir grade den Hexdump mal angesehen und die Blöcke farbig markiert:
Hex_Bloecke.jpg

grün:Start
rot:Ende
blau: Länge
orange: Fehlt da nicht ein Byte ???

Die Länge sind alle Bytes zwischen $32 und $34
$32 und $34 werden nicht mitgezählt.

Nach dem Ende Zeichen $34 folgen ...

Habe die Caches, Verlauf usw. bei Chrome und FireFox gelöscht, keine Änderung...