Deutsches Lazarusforum

Vielleicht geht es sehr einfach.

if Form.Left < 1 then Form.Left = 1;

Heute habe ich etwas probiert, ganze Classen einer Procedure übergeben. Somit kann man viel Code sparen. Ich hätte nicht gedacht, das dies funktioniert. TStandRohr, TStandRohrSchnitt, etc. sind alles Nachkommen von TKoerper.   var StandRohr: TStandRohr; StandRohrSchnitt: TStandRohrSchnitt; &nbs...

Habs jetzt trotzdem gemeldet:

Danke, da ich kein englisch kann währe es sowieso schwierig gewesen.

Ich denke, das wäre schon einen Bugreport wert. Aber dann mit komplettem Projekt inkl. lfm, lpi und lpr (als zip), man sollte niemandem zumuten, sich das Test-Projekt mit Copy & Paste zusammenklicken zu müssen. So wie es aussieht, hat Michel die Arbeit mit dem Zip schon abgenommen. Was ich noch...

Ich habe das Ganze jetzt mit SuSE-Linux in der VirtualBox getestet, das gleiche Problem. Scheinbar wird Unit2 trotz Änderung nicht neu kompiliert. Wen ich die Ausgabe vom Compiler leses, da wird unit2.pas compiliert. Mit Shift-F9 wird der Fehler dann korrigiert Wen ich das mache compiliert er bei mi...

Ich habe eine Miniprogramm geschrieben, da ist der Fehler auch nachvollziehbar. Ich kann in vec3 x und y vertauschen, nach einem Neustart (F9) hat dies keine Wirkung. Ich habe auch bei Kompilieren und Linken verschiedene Einstellungen ausprobiert, alles ohne Erfolg. Entferne ich inline;, dann arbeit...

Ich habe noch was raus gefunden, wen ich in meinem Code das inline entferne, dann compiliert er richtig. Wen ich meinen ersten Post mit den Sektoren angucke, war da auch ein inline . Interessanterweise passiert der Fehler bei deinem Miniprogramm nicht, obwohl dort auch inline steht. würde ich Lazaru...

Hat leider nichts gebracht. Schreibe ich sowas, dann merkt er, das ein Syntax-Fehler vorhanden ist. i:=strtoint(i); for i := 0 to 1232 do begin Result[i] := Vector[i] * (-1); end;   Entferne ich die Zeile i:=strtoint(i); läuft das Programm wieder ohne Fehler, obwohl 1232 viel zu...

Das Problem mit dem nicht kompilieren ist wieder da. Ich hatte vorhin versehentlich for i := 0 to 3 do anstelle for i := 0 to 2 do geschrieben. Das gibt natürlich eine Schutzverletzung. Ich habe den Wert auf 2 korigiert und es kam immer noch eine SV. Erst als ich wieder "Aufräumen und Kompilier...

Ich habe eine kleine Demo geschrieben, welches die Property-Funtionen demonstriert. unit Unit1;   {$mode objfpc}{$H+}   interface   uses SysUtils, Forms, StdCtrls;   type   { TForm1 }   TForm1 = class(TForm) ButtonDurchmesser: TButton; ButtonRadius: TButton; ButtonUmfang: TButton; Edit1: TEd...

siduction frisch mit xfce aufgesetzt und lazarus 10.0.10 installiert.

Was hast du da für ein Lazarus ?
Das normal Lazarus ist erst bei 1.2.

Kann man in einer class auch eine static Konstante deklarieren ?

Ohne static würde es funktionieren.

Ich habe mir den Link mit Singleton-Pattern angeguckt, werde aber nicht schlau.

Ich bin ein bisschen weiter gekommen. Sobald ich static von OpenGL: TOpenGL; static; entferne geht es.
Somit hat JEDI Probleme mit dem Wort static.

Die Frage ist eher, was der Sinn davon sein soll.

TOpenGL ist eine Klasse welche verschiedene Methoden beihaltet, TNewDraw Zeichnet Objekte für OpenGL, welche in berschiedne Ästen vererbt wird. Jeder Erbe muss auf TOpenGL zugreifen können.