Deutsches Lazarusforum

Hallo Zvoni,
ich dachte schon Du fällst aus allen Wolken, weil Pascal so geil ist....
Zumindest einen Tandem habe ich auch schon hinter mir.

Auch mein Einstieg war Turbo Pascal 3.0
mit Datenbanken habe ich aber bisher keinen Kontakt gehabt.

Dann weiterhin viel Spass hier im Forum.

Danke Dir auch PascalDragon,
ich werde hier immer mit entscheidenen Informationn versorgt.
So macht das Spass.

Ja super, jetzt sehe ich das auch.
Man braucht also auch kein reserviertes Wort Overload :roll:
Ich wusste ehrlich gesagt garnicht ob und wie so etwas geht... :P
Nun programmiere ich aber auch erst 38 Jahre.... :mrgreen:

Präzise Antworten und schon hab ich es auch verstanden.
Ich danke euch ...

Hallo zusammen,
ich hatte lange meine eigene Funktion IntToBin verwendet, habe aber grad gesehen, dass es sowas ja schon gibt in der Unit StrUtils.

Wenn ich mir den Code ansehe, komme ich jedoch etwas ins grübeln....
Das sieht so aus, als würde sich die Funktion rekursiv selbst aurufen ???? mit ...

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 ...