Deutsches Lazarusforum

Hat mich grade neugierig gemacht :wink:

Global und Lokal, beides funktioniert bei mir:


var Pointer:String;

procedure TForm1.FormCreate(Sender: TObject);
begin
Pointer:='Hallo';
Caption:=Pointer;
end;

und auch das geht:

procedure TForm1.FormCreate(Sender: TObject);
var Pointer:String ...

Ich habe gerade dies vor meiner Nase und die proceduren werden anstandslos kompilert.
Darf dies so sein. oder ist das ein Bug ?
Ist es aber ausserhalb der procedure, dann motzt er wie erwartet.
program Project1;

procedure test1(pointer: pointer); // geht
begin
pointer := nil;
end;

procedure ...

Was ich vermisse, das ich zu einer Deklaration springen kann und zurück.

Codeblooks macht dies sicher, wen man normal für den Desktop Codet. Ich vermute für Embeded System lässt sich dies sicher auch einrichten.

Code-Blocks wäre vielleicht noch etwas für dich.

Oder man verwendet einen einfachen Text-Editor, wie der xed von Mint. Kompilieren kann man da rasch auf der Konsole, bei einfachen Sache mache ich es so.

Ich hatte alles mit libhdf5 deklariert und wollte es auf libhdf5_serial um zu benennen, als habe ich F2 gedrückt um alle um zu benennen.
Vielfach steht es dann doppelt dort, oder es passiert gar nichts. Siehe Anhang.
Und es hat praktisch in jeder Unit solche Ausreisser.

Dies ist mir schon vor ...

Also irgendwie wie Lotto, je nach Lust und Laune bewegt sich das ganze.

procedure TForm1.Button3Click(Sender: TObject);
var
x, y: int64;
begin
x := Random(200);
y := Random(200);
Caption := IntToStr(x) + ' - ' + IntToStr(y);
ScrollBox1.VertScrollBar.Position := x;
// ScrollBox1.HorzScrollBar ...

kirchfritz hat geschrieben: Sa 1. Aug 2026, 11:32 Also ich würde gerne mit Lazarus/Freepascal eine App erstellen können, die auf einem Android-Handy läuft.

Fritz

Dies ist theoretisch über zig Hausecken möglich.

Nachdem der unnötige Debug-Kram entfernt war, lief der Start wieder problemlos.

Genau so ist es, wieso auch immer. Hauptsache es geht wieder.

Für das Gegenstück, um "division by zero" ganz zu unterbinden, habe ich dies hier, damm muss man die Unit Math nicht einbinden,
Besonders nützlich, wen man fremde libs einbindet.

// wegen "division_by_zero" in den clibs
{$IF defined(CPUX86) or defined(CPUX64)}
{$asmmode intel}
procedure SetMXCSR ...

Es ist auch vom Mode abhängig. Bei {$mode Delphi} braucht es kein ^. In den anderen Modi schon.

Dieser Delphi Mode meide ich wen es geht.

Insbesondere da man mit autoderef sich das sowieso in vielen Fällen sparen kann wenn man wirklich so faul ist

Das kannte ich nicht, dieser Schalter scheint zu funktionieren. Ich habe mein Beispiel von vorhin geändert.

{$modeswitch autoderef}
....
procedure cb(data: Pointer);
var
myRec:PMyRec ...

Dies ist so eine typische Anwendung von absolute.
program project1;

// Dies ist in einer fremden Unit, zB. C-Bindung

type
TCall=procedure(data:Pointer);

procedure CFunc(cp:TCall; data:Pointer);
begin
cp(data);
end;


// Die ist die Anwendung der Unit

type
TMyRec=record
a,b:Integer;
end ...

FPC 3.2.2 meckert da aber nicht. Gibt es dafür eine Einstellung? "{$mode delphi}" ändert nichts daran.

Das wäre gut, wen man da etwas aktivieren könnte, sonst macht diese Deklaration gar keinen Sinn.

Ich vermute, in einem type geht dies nicht, nur bei var. Und eine ganze Klasse ist ja ein type.

Zeig doch ein Beispiel, das sieht man eher was du meinst.