Deutsches Lazarusforum

Zugriff auf Excel mittels OLE war für mich immer der Horror an Unverständlichkeit. Mit FPSpreadsheet wäre das in den folgenden Zeilen zu erledigen: uses fpspreadsheet, xlsxooxml; procedure TForm1.Button1Click(Sender: TObject); var workbook: TsWorkbook; worksheet: TsWorksheet; x: Integer; begin workb...

Mathias hat geschrieben: ↑

Fr 12. Apr 2024, 17:07

Funktioniert bei mir nicht.

Natürlich, bei mir auch nicht. Darum steht es ja auf der Wunschliste.

Wenn "array[0..255] of byte" ein eigener Typ wäre, z.B. TByteArray256, dann könnte man das Folgende machen: type TByteArray256 = array[0..255] of Byte; var Data: TByteArray256; begin Data := Default(TByteArray256); FillByte(Data, SizeOf(Data), 0); Könnte man da nicht das FillChar weglassen, ausser ...

procedure test; var Data: array [0..255] of byte; begin Data[0]:=0; // <--- neu FillByte(Data, SizeOf(Data),$00); end; Könnte sein, dass nun ein Hint kommt a la "Not all elements initialized"... Wenn "array[0..255] of byte" ein eigener Typ wäre, z.B. TByteArray256, dann könnte man das Folgende mach...

Der erste Parameter in FillByte, dein "Data", ist ein "var" Parameter. Das signalisiert, dass die aufgerufene Funktion den Wert lesen und schreiben kann. Falls Data gelesen wird, (was hier natürlich nicht der Fall ist), fällt dem compiler auf, dass Data keinen wohldefinierten Wert hat, denn an Data ...

Richtig.

Genau.

Ich habe FPC 3.3.1, 3.2.2, 3.2.0, 3.0.4 und 2.6.4 unter 32-bit Windows ausprobiert. Bis auf 3.3.1 liefern alle mit deinem Programm einen Laufzeitfehler 103, "File not open" - das ist klar, das Häkchen bei "Win32 GUI application" unter "Projekt Options" > "Compiler Options" > "Config and Target" ist ...

heute Morgen hatte ich eher die Muße mal was zusammen zu hexen. Siehe Anhang. Mit FPC/main (v3.3.1) wird der Umlaut in P.WriteText(xPos[34], yPos[34], 'Versteigerungsliste ' + UTF8Decode('für') + ' den'); korrekt dargestellt. Dasselbe gilt für alle anderen Sonderzeichen in dem Text, wenn UTF8Decode...

Wieder heiteres Beruferaten... Was genau sind Vec3 und Quads? Ich kann's mir denken und habe mir folgenden compilierbaren Code zusammengereimt: type TVec3 = record x,y,z: Single; end; function Vec3(a, b, c: Single): TVec3; begin end; procedure Quads(v1, v2, v3, v4: TVec3); begin end; procedure TForm...

Es geht anscheinend um PDF-Erzeugung. Da wirst du für uns sicher ein kleines Projekt erzeugen und hochladen können, in dem man den Fehler sieht? Ansonsten ist das nur blinde Raterei...

Man muss die Positionen also selbst berechnen, oder korrigieren. Oder die Positionen und Größen mit dem Anker-Editor festlegen. War es nicht so, dass Maße, die vom Anchor abhängig sind, nicht skaliert werden? Maße, die vom Anchor abhängig sind? Ich sehe das genau anders herum: Der Anchor definiert ...

Man muss die Positionen also selbst berechnen, oder korrigieren. Oder die Positionen und Größen mit dem Anker-Editor festlegen. Das ist zwar umständlicher, sorgt aber für ein stabiles Layout, das sich anpasst, wenn Microsoft den Windows-Font mal wieder ändert, oder der Linux-User ein anderes Deskto...

Gibt es für die Bilddateien eine Art Kennung oder müsste man sich selber eine Kennung basteln und diese beim Speichern im Blob vor der Datei selber ablegen und beim Lesen auswerten? Jedes (Bild-)Format speichert im Header typische Informationen, an denen man den Format-Typ erkennen kann (einfach si...

Bin nicht sicher, ob ich verstehe, was das Demo-Projekt zeigen soll. AutoAdjustLayout ist eigentlich nicht dafür gedacht, dass es vom User aufgerufen wird. Das macht die LCL automatisch im Zuge des Erzeugungsprozesses einer Komponente (in TForm.AfterConstruction, das kommt nach dem OnCreate-Handler)...