Forum: Object-Pascal / Delphi-Language
by paul.kunig,
3. Jul 2019
Hallo Jumpy,
ja, es ist ein Record.
Nun ja, ich nehme es mal so hin. Den Sinn dahinter verstehe ich noch immer nicht.
Danke für eure Mühe und Geduld.
Gruß
Forum: Object-Pascal / Delphi-Language
by paul.kunig,
3. Jul 2019
Hallo peterbelow,
absolut richtig was du sagst.
Gruß
Forum: Object-Pascal / Delphi-Language
by paul.kunig,
3. Jul 2019
Danke Jumpy,
hatte da wohl ein Brett vor dem Kopf. Du hast natürlich recht.
Allerdings stellt sich mir eine weitere Frage.
Warum wird hier ARect als Konstante angegeben, obwohl diese doch in der Routine geändert werden soll, kann, darf?
Danke auch an ConnorMcLeod
Gruß
Forum: Object-Pascal / Delphi-Language
by paul.kunig,
2. Jul 2019
Die Frage warum der Wert nicht übergeben wird, ist noch offen.
Nur falls jemand wegen des Dankes meint die Sache sei erledigt.
Weitere Frage:
Die procedure TForm1.Layout1Paint(Sender: TObject; Canvas: TCanvas;
const ARect: TRectF);
erwartet als Parameter ein Canvas.
Erstelle ich in diesem onPaint-Ereignis ein Rechteck ohne vorher ein Canvas beim Aufruf der Prozedur zu übergeben, wird...
Forum: Object-Pascal / Delphi-Language
by paul.kunig,
2. Jul 2019
Danke DieDolly,
o.k. Verstanden. Ab einer bestimmten Größe wird der Wert als Referenz übergeben.
Das hätte mir als Antwort schon gereicht.
Was du mit wegnehmen meinst ist mir allerdings nicht klar.
Nächstes Problem:
Der übergebene Wert wird in der Prozedur ignoriert.
Forum: Object-Pascal / Delphi-Language
by paul.kunig,
2. Jul 2019
Danke für deine Mühe und den sehr hilfreichen Link. Sehr Interessant.
Damit alle etwas davon haben füge ich den Inhalt des Links hier 1 zu 1 ein:
Parameter (Delphi
Diese Seite enthält momentan noch keinen Text und du bist auch nicht dazu berechtigt, diese Seite zu erstellen. Du kannst ihren Titel auf anderen Seiten suchen oder die zugehörigen Logbücher betrachten.
Eine Erklärung wäre...
Forum: Object-Pascal / Delphi-Language
by paul.kunig,
2. Jul 2019
Hallo Leute,
in Delphi 10 gibt es folgende Prozedur:
procedure TForm1.Layout1Paint(Sender: TObject; Canvas: TCanvas;
const ARect: TRectF);
begin
end;