Deutsches Lazarusforum

Hi ,

so was habe ich neulich auch gebraucht.

In der Unit TypInfo gibt es dazu die Funktion GetEnumName .

Hier mal ein Beispiel-Projekt .

Gruß

Frank

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Spin, StdCtrls,
TypInfo;

type ...

Hi ,

ich danke euch für die Antworten .

Der letzte Tipp von TSchnuckenbock ist derzeit mein Favorit.

Als beknackte Variable habe ich mir

var hama:byte=0;

ausgedacht , hama steht für "halt mal" und ist kurz genug .

Die Testschleife sieht dann so aus.

// mit beknackter Variable
procedure ...

Hi,

manchmal möchte man beim Debuggen einen Haltepunkt haben , z.B. in einer For-Schleife und findet keine passende Codestelle um diesen zu setzten.
Siehe z.B. im Quelltext unten in der Button1Click .

******

Bisher habe ich dann an der gewünschten Halte-Stelle einfach ein sleep(0); eingebaut ...

Hi,


Ok, Es gibt verschiedene mögliche Ursachen.

1) Kompiliert mit -O2 oder höher (oder explizit mit Anweisung den Stackframe weg zu optimieren IIRC -Oonostackframe ??)

2) Pausiert auf begin oder end
Dort sind lokale variablen noch nicht (nicht mehr) verfügbar. Sie sind noch nicht aus den ...

Hi,

mal ein anderer etwas verzweifelter Versuch , um die Werte anzuschauen.

Habe mir eine Werte-Array als Zwischenspeicher eingebaut.

// Berechnet den Geschwindigkeitsvektor des Wirbelstückes
// A->B mit der Zirkulationsstärke gamma im Aufpunkt P
function biot_savart(gamma:double;Vek_A,Vek_B,Vek ...

Hi ,


Nur ein Hinweis, gerade beim Debugger hat sich mit den neuen Lazarusversionen unheimlich viel getan. Und tut sich weiterhin sehr viel, da ist auch zwischen Lazarus stable und dem aktuellen Trunk wieder viel passiert.


Ok , habe mir mal per FPCUPdeluxe die aktuelle Version
Lazarus 3.4 (rev ...

Hi ,


Ich rate jetzt ins Blaue: Da die Double-Werte (inkl. der Parameter Gamma) sicher im Stack landeten, vermute ich, dass beim Breakpoint "end" der Stack bereits wieder "leer" (geräumt) ist. Evtl. versuchen eine Anweisung zuvor den Breakpoint zu setzen.


Aber bei meinem Minimalprojekt klappt ...

Hallo,

habe in einem größeren Programm immer wieder Probleme beim Anzeigen von lokalen Variablen-Werten , wenn ich Debugge und Haltepunkte setzte.
Betrifft meist Unterprograme wie dieses hier

// Berechnet den Geschwindigkeitsvektor des Wirbelstückes
// A->B mit der Zirkulationsstärke gamma im ...

Hi , lese hier einfach nur mit .

Und wundere mich , warum sich keiner mehr an meine Versuche mit Textausgabe in Opengl erinnert.
Hier ging es um die Nutzung von TTF-Fonts im Opengl.

Die ersten Versuche findet ihr hier:

Text in OpenGLcontrol Nov 2016
Startseite
https://www.lazarusforum.de ...

Hallo theo,

procedure TForm1.FormShow(Sender: TObject);
begin
application.ProcessMessages;
memo1.SelStart := Length(memo1.Text);
end;

hat unter Win-10 leider nicht funktioniert , unter Linux-Mint schon.

Der Tipp mit

procedure TForm1.FormActivate(Sender: TObject);
begin
memo1.SelStart ...

Hallo Calanda,

habe es so hinbekommen .
Nicht schön , aber !

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormPaint ...

Hallo Mathias,

Mathias hat geschrieben: Mi 23. Aug 2023, 08:34 Ein Float hat immer 4 Bit und ein Double, wie man es im Namen schon erahnen kann 8bit.

Hast Du dich verschrieben ?
Sollte es nicht 4Byte und 8Byte sein .

Gruß

Frank

Hallo ,

gehe mal nach Google und tipp dort in die Suche

"Delphi Lazarus Grafik Linie"

ein .

Es gibt sehe viele Beiträge und einfache Beispiele .

Dann versuchst Du es zunächst einmal selber zu programmieren .

Wenn Du dann gar nicht weiter kommst , kannst Du dein Versuchsprojekt hier hochladen ...

Hallo ,

das ist hier ja alles nicht so tragisch .

Wäre es nicht schön gewesen , wenn Winni auf seinem System z.B. die Nachricht "is not cross-platform" bekommen hätte ?
Dann hätte er sich gleich Gedanken gemacht .

Baut man solche Sachen 100fach in sein Programm ein und möchte dann von einem ...

Hallo theo,


Hmm, Merkwürdig.
Steht das bei dir nicht auf Zeile 85 oder 87 von math.pp?
https://gitlab.com/freepascal.org/fpc/source/-/blob/main/rtl/objpas/math.pp

Trifft auf deinem System die Bedingung nicht zu?
{$ifdef FPC_HAS_TYPE_EXTENDED}
const
MinExtended = 3.4e-4932;
MaxExtended = 1.1e ...