Variante Records, Strings und 32 bzw. 64 Bit

[himitsu]

PS: Seit Delphi 2006 kann man auch Methoden und Property in den Records verbauen.

Delphi-Quellcode:

type
  TVarStr = record
  private
    function ReadPart(StartLength: Integer): AnsiString;
  public
    Value: string[32];  // es gibt eine Funktion mit dem Namen "Str" ... siehe "Val"
    property P1: AnsiString index 0106 read ReadPart;
    property P2: AnsiString index 0706 read ReadPart;
    property P3: AnsiString index 1306 read ReadPart;
    property P4: AnsiString index 1906 read ReadPart;
    property P5: AnsiString index 2506 read ReadPart;
    property P6: AnsiString index 3102 read ReadPart;
  end; 

function TVarStr.ReadPart(StartLength: Integer): AnsiString;
begin
  Result := Copy(Value, StartLength div 100, StartLength mid 100);
end;

Ansonst mußt du statt string[x] jeweils ein array[0..x-1] of AnsiChar verwenden.

[Codehunter]

Hui, gute Idee! Ich versteh zwar bis heute noch nicht, was den Record in dem Fall dann noch von einer Klasse unterscheidet. Außer dass er nicht per Constructor instantiiert werden muss. Jedenfalls wird so aus dem Stapel von Copys nur noch eins.

Gut war jetzt im Grunde ein banales Beispiel für ein komplexeres Problem, aber das wichtigste ist dass ich wiedermal was gelernt hab. Danke schön und gute Nacht für heute!

[himitsu]

Bei einem Record hast du quasi direkt den Zugriff auf den internen Speicher. und man könnte es direkt in einen Stream/Datei speichern. (außer wenn gewisse gemanagte oder gepointerte Typen drin vorkommen)

[OlafSt]

Gibt es für das Konstrukt "AnsiString index XXXX" irgendwo eine Dokumentation ? Irgendwie beschleicht mich das Gefühl, extrem viel verpaßt zu haben

[himitsu]

Das sollte bei "Property" in der OH stehen und das gibt es schon sehr sehr lange. (in den Objekten und Interfaces)
Nur bei Records wurde es erst später eingeführt. Genauso, wie es Class- und Record-Helper erst seit einer Weile gibt.

Index ist einfach ein Integer-Parameter, den man an den Getter und Setter weitergeben kann.

Delphi-Quellcode:

[class] function DerGetter([ArrayParameter: ParamTyp; ...] [IndexParameter: Integer]): ResultTyp; [static;] [overload;] [virtual|dynamic; [abstract;]] [override;]
[class] procedure DerSetter([ArrayParameter: ParamTyp; ...] [IndexParameter: Integer; ] Value: ResultTyp); [static;] [overload;] [virtual|dynamic; [abstract;]] [override;]

// Array-Property
[class] property DerName[ArrayParameter: ParamTyp; ...]: ResultTyp [index IndexParameter] [read DerGetter] [write DerSetter] [default];

// normales Propery
[class] property DerName: ResultTyp [index IndexParameter] [read DerGetter] [write DerSetter] [default DerStandardwert];

// [...] = das darin Eingeschlossene ist optional
// außer um den "ArrayParameter" drumrum, da sind wirklich die Zeichen [ und ] gemeint

Nur beim "default" muß man aufpassen, da es bei Array-Property das Property als Standard-Property deklariert .... siehe TStrings (SL.Strings[123] = SL[123] )
und bei normalen Properties die Serialisierung steuert ... also den Wert, welchen z.B. die VCL nicht in der DFM speichert.

Virtual, dynamic, abstract, override und natürlich auch das protected nicht bei Records, da diese keine Vererbung besitzen.

[OlafSt]

*koppklatsch* Natürlich... Einfach nur ein cleveres Ausnutzen eines uralten und wenig benutzten Features. Danke für die Aufklärung

[Codehunter]

Auch wenns jetzt eigentlich in eine andere Richtung geht: Über das Thema Helper-Konstrukte bin ich gestern das erste Mal gestolpert in Form von TGuidHelper. Dann gabs aber Compilergemecker dass man den nicht direkt verwenden könnte.

Meister Google hat aber zum Thema "Delphi Record Helper" gestern Abend nur Bullshit ausgespuckt. Heute früh hier im Büro liefert er mit dem selben Suchbegriff aber gleich das richtige Emba-Wiki. Schon seltsam dieser Gockel und echt launisch ist er geworden