Deutsches Lazarusforum

Dieses Mal bin ich auch dabei. In letzter Zeit habe ich mich mit Python4Delphi beschäftigt, d.h. mit der Einbindung von Python in ein Lazarus-Programm. Das kann ich vorstellen.

Bis Samstag.

Es gibt halt keine Typüberprüfung, und dann gilt wohl folgendes:
"Dynamic arrays are reference counted. Calling setLength(myDynamicArrayVariable, 0) virtually does myDynamicArrayVariable := nil and decreases the reference count."
Ist aus dem Link von Theo in der ersten Antwort.
Die Zuweisung von nil ...

Dass auf die Ausgangsfrage nicht direkt eine passende Antwort gekommen ist, liegt m.E. daran, dass die Vorgehensweise vom TE, ein Formular genau bei der ersten Benutzung zu erzeugen eher ungewöhnlich ist. Entweder man erzeugt alle beim Programmstart, oder man erzeugt sie wirklich nur bei Bedarf ...

Das heißt du willst z.B. die Aufzeichnung von 10 Wochen in einem einwöchigen Diagramm übereinanderlegen, sodass man Systematiken sieht?

In dem Fall könntest du für jede Woche eine eigene Kurve in das gemeinsame Diagramm schreiben, dann wären sogar Linien zwischen den Punkten möglich. Ich vermute da ...

Deswegen ist für mich jegliche Diskussion über das Produkt sinnlos.
Für mich im Prinzip auch, Leute die auf CodeTyphoon stoßen, sollen aber die Hintergründe auch mitbekommen. Daneben ist auch das rechtliche Verständnis von Lizenzen interessant.


Das ist natürlich eine sehr vage Beschreibung ...

Nach strikter Auslegung der GPL nach FSF wäre das zwar nicht erlaubt, da linking oder nicht die GPL ist auf Distribution infektiös, aber unter dieser Auffassung wäre die LCL die ja mit Lazarus Verteilt wird auch nicht GPL konform.

Warum soll das Verteilen der LCL mit Lazarus nicht GPL-konform ...

Mir kommt das auch seltsam vor und ich würde das als Bug ansehen. Second hat ja überhaupt nichts mit First zu tun. Und wenn der Compiler das aufgrund eines fehlenden Identifiers wirklich nicht unterscheiden könnte, müsste m.E. eine Fehlermeldung ausgegeben werden.

Warum sollen Interfaces ungeeignet sein?

Unit uExtended_Dont_Touch;

Type TExtendedCar = class(TCar,INewFeature)
Function NewFeature: String;
End;

Type TExtendedPlane = class(TPlane,INewFeature)
Function NewFeature: String;
End;

Nach corpsmans Hinweis korrigiert: INewFeature(MyVehicles ...

So wie es m.fuchs gemeint hat, würde ich es auch machen.

Also:
INTERFACE
var
MyVehicles: Array Of TVehicle;

IMPLEMENTATION

if MyVehicles[i] is IFlyingVehicle
then IFlyingVehicle(MyVehicles[i]).StartFlying;


Man könnte es in dem Beispiel zwar wohl auch direkt über eine abgeleitete Klasse ...

Beim Treffen gab es eine Diskussion, ob man bei der Datenübertragung über TCP sich selber um eine Paketierung kümmern muss, oder ob das TCP-Protokoll selbst in Paketen arbeitet.

Hier ein Zitat aus Wikipedia:

"Im Gegensatz zum verbindungslosen UDP implementiert TCP einen bidirektionalen, byte ...

Bin morgen auch dabei.

Bei einer seriellen Schnittstelle gibt es keine Pakete in dem Sinne.

In meinem Fall liegst Du falsch.
Ich spreche von der Seriellen Schnittstelle und auf Schnittstellenenbene gibt es keine Pakete/Blöcke. Deine Blöcke tauchen erst auf Protokollebene auf, du versuchst aber die Blöcke auf ...

[...], wie es "meine" Datenpakete einliest.
Das Terminalfenster reiht ohne Unterbrechung die Bytes wahllos hintereinander.
So ist das absolut unbrauchbar für meine Anwendung.

Bei einer seriellen Schnittstelle gibt es keine Pakete in dem Sinne. Die Bytes werden der Reihe nach ausgegeben und ...

Habs mir kurz angeschaut, .Head zeigt doch auf einen anderen Typ, nämlich auf

TListeElement = RECORD
Data: Pointer;
Next: PListeElement;
END;

Zeiger zeigt auf TEintrag

TEintrag = RECORD
M1, M2, M3, N1, N2, L1: INTEGER;
PROG, BEZEICHNER, CODE: STRING[50];
END;

Edit: WIe ist das in ...

Der Compiler gruppiert ja die Variaben, sonst würde b1 bis b3 jeweils 4 Byte brauchen. Ich würde vermuten, dass das Pading-Byte im zweiten Fall von der Gruppierung kommt, wie wenn diese selbst zu einem record zusammengefasst worden wären. Bei drei gleichen Typen ohne andern Typ im Record scheint die ...