Deutsches Lazarusforum

Das übliche bzw. frühere Runden, wie ich es gelernt habe und auch in Turbo Pascal war, gibt es in FPC garnicht mehr.... :( (zumindest mir nicht bekannt wie ich das einstellen kann....) Für Zeichenoperationen nutze ich: function XRound(Num:Double):Integer; begin if Num >=0 then result:=Trunc(num+0.5)...

Guten Morgen, fehlt da evtl. noch ein Kaffee :wink: Das ist doch richtig: procedure TForm1.FormCreate(Sender: TObject); var d : Double; i : integer; begin d := 0.2; for i := 1 to 10 do begin d := d + d; ListBox1.items.add(FloatToStr(d)); end; caption:= FloatToStr(d); end; Reihe.png

Hallo zusammen, beim Umsetzen eines C-Codes nach Pascal ist mir grade etwas aufgefallen, Ist der Rückkabewert einer Funktion evtl. undefinier t, gibt es keinen Warning. Folgender Code ist eindeutig und es gibt auch den Warning: function Test(x:Integer):Integer; begin end; Warning: Function result do...

Nabend Bernd,
habe ich grade mal getestet. Mit graden und ungeraden GroupIndex.

Ja, was soll ich sagen:
Genau so. Da gibt es nix mehr zu meckern.

Tolle Arbeit. Geniesse das Wochenende.

UNGERADE genau, grade probiert. Generell scheint es problematisch wenn der GroupIndex gerade ist. Ist er ungerade 3 5 17 usw. funktioniert es richtig. Da würde ich auch nix dran ändern. Das ist okay so. Evtl. einen Hinweis "muss ungerade" sein oder "heimlich" im Code ungerade machen ???? :wink: Schw...

Sehr gelungen Bernd, gefällt mir wirklich gut, grad etwas rumgespielt. Info, weil es mir nicht kalr war: NewRollImage wählt für die "momentane Position" ein Bild aus. Wenn also Direction auf fsLeft steht, wird das Image für die linke Position ausgewählt. Steht Direction auf fsRight wird ein Image fü...

Moin Bernd,

ja das sieht besser aus, solange man es mit der Größe nicht übertreibt.
Der Fehler wenns zu klein wird ist nun auch weg. Einen schönen Sonntag noch.

Hallo Bernd, anbei meine Bilder von Windows Switches_Windows_2.png Switches_Windows.png Schade, das sieht bei Dir irgendwie hübscher aus mit der Kantenglättung. . Nun die Probleme: :wink: Direction ist in Public, müsste aber eigentlich in property, damit man eine Voreinstellung machen kann. Das habe...

Hallo Roland,
Der Fehler bleibt bei mir bestehen.

Lazarus 2.2.0 (rev lazarus_2_2_0) FPC 3.2.2 x86_64-win64-win32/win64

habe eben dieses Fenster noch bekommen:

Guten Morgen zusammen, kein Problem bei: Lazarus 3.0RC1 (rev lazarus_3_0_RC1-10-gfe49fef4fc) FPC 3.2.2 x86_64-win64-win32/win64 Riesen Problem bei: Lazarus 2.2.0 (rev lazarus_2_2_0) FPC 3.2.2 x86_64-win64-win32/win64 Lazarus stürzt regelrecht ab.... mit entsprechender Fehlermeldung Problem.png einen...

Ich hatte mal angefangen einen RotatedLabel zu programmieren und mit viel Hilfe von wp_xyz entstand dann ein kleines Testprogramm. Hier wird der Drehpunkt markiert und das umschließende Rechteck für den Text berechnet. Diese Funktionalität hat er dann direkt in die Labelkomponente mit eingefügt. Vie...

sieht bei mir auch so aus:
Lazarus 2.2.0 (rev lazarus_2_2_0) FPC 3.2.2 x86_64-win64-win32/win64

Guten Morgen, Ui, das wusste ich garnicht, dass ich es hinter Reset setzen mus.. :shock: Hab vielen Dank Jörg. Ich dachte SetTextBuf wäre eine globale Einstellung :P Wenn man aber mal bischen nachdenkt.....ich übergebe ja auch den TextFile :wink: Nun habe ich es ausprobiert und siehe da, kaum macht ...

Grade gefunden: https://www.freepascal.org/docs-html/rtl/system/settextbuf.html Der Standard Puffer ist wohl 128 Bytes Der maximale Puffer angeblich nur 65355 Bytes ???? komischer Wert, evtl. doch 65535 ???? Das spricht für die Erfahrung von Jörg, dass größere Puffer dann nix mehr bringen. Ich habe ...

Zur Info: Ich wollte mal eine .csv Datei (das ist ja reiner Text) einlesen allerdings hatte ich 10 Millionen Zeilen. Mit ReadLn dauerte das eine knappe Stunde :shock: Das Einlesen in eine Stringliste dauerte nur 1,2 Sekunden var tf:TStringlist; begin tf:=TStringlist.create; tf.LoadFromFile(filename)...