Verschiedene Arrays! Besser mit Generics?

[Uwe Raabe]

Zitat von Furtbichler:

Ich dachte eher an diese perversen String-Referencecounter. Keine Ahnung, ob beim Move dabei alles koscher bleibt.

Dachte ich auch erst, aber die Strings sind ja faktisch Konstanten. Konstante Strings haben aber als RefCount immer -1 und der wird auch nicht verändert.

Normalerweise ist der Move-Befehl bei Records mit ref-counted Feldern ein No-Go. Deshalb würde ich ihn auch in diesem speziellen Fall nicht verwenden.

BTW - Man kann es auch so machen:

Delphi-Quellcode:

Procedure InitializeRecordDef(Var recordDef: TRecordDef);
Begin
  recordDef := TRecordDef.Create(SetupRecord[0], SetupRecord[1]);
End;

[Mavarik]

Zitat von Uwe Raabe:

Delphi-Quellcode:

Procedure InitializeRecordDef(Var recordDef: TRecordDef);
Begin
  recordDef := TRecordDef.Create(SetupRecord[0], SetupRecord[1]);
End;

Mit den 2 Feldern geht das ja noch... Aber andere Records haben 100 Felder!

[Union]

Dann musst Du eben nicht mit Records arbeiten, sondern mit einer entsprechenden Klasse, die den Puffer anhand einer Objektliste zerpflückt bzw. wieder zusammensetzt.

[DeddyH]

Nun komm doch nicht mit so nem neumodischen Kram. Klasse, *pfh*

[Mavarik]

das Problem ist doch nicht wie es gespeichert wird...

Sondern wie es definiert ist... Und zwar als Konstanten

[Union]

Dann musst Du eben die Definition ändern. Bisher

Delphi-Quellcode:

TMyRecordDef = record
  Feldname : String;
  Feldtype : TFeldtypen;
end;

Ersetzen durch (ähnlich wie ein Dataset)

Delphi-Quellcode:

TMyRecordDef = class(TRecordDef)
...
MyRecordDef := TMyRecordDef.Create;
MyRecordDef.ID := '';
MyRecordDef.AddDefinition('FeldName', ftString, 20);
MyRecordDef.AddDefinition('Feldtype', TFeldTypen);

[Der schöne Günther]

Ich habe es mehrmals versucht und ich habe mir Mühe gegeben, aber ich verstehe immer noch nicht, um was es überhaupt geht

Man erstellt lokal einen Record (mit vielen Feldern) und möchte ihn nun in einen definierten "Default"-Zustand bringen, oder?

Man kann einem Record doch einen (nicht parameterlosen) Konstruktor verpassen und lässt es dort machen? Und - was ich schon immer fragen wollte - was hat es eigentlich mit dem "Default"-Befehl auf sich? Kann man da etwas anpassen oder festlegen, was Default sein soll?

Delphi-Quellcode:

type
   TMyRecord  = record
      someIntField: Integer;
      someStrField: String;
   end;
var
   myRecord: TMyRecord;
begin
   myRecord := Default(TMyRecord);
   [...]
end;

[Mavarik]

Zitat von Union:

Delphi-Quellcode:

TMyRecordDef = class(TRecordDef)
...
MyRecordDef := TMyRecordDef.Create;
MyRecordDef.ID := '';
MyRecordDef.AddDefinition('FeldName', ftString, 20);
MyRecordDef.AddDefinition('Feldtype', TFeldTypen);

So könnte man es sicherlich auch machen.
Dann habe ich aus der Konstantendefinition mit 0 Taktzyklen eine aktive Zuweisung mit 10000n Taktzyklen gemacht.
So mache ich für die Zuweisung einen Move - und bin fertig.
Ich habe von diesen Definitionen ca. 25 in allen größen von Array[0..2] bis Array[0..350].
Da ich im OnCreate meines Datenbank Objects diese Definition setzen muss, müsste ich jedes mal durch so eine Liste laufen.
Sorry, aber Mobile_Apps sind schon langsam genug... Mein Weg funktioniert ja.

Dachte nur man könnte es ggf. etwas schöner machen...

Ich dachte eher sowas wie

DoSetArray<T>(MyRecord:T) irgendetwas... Um die Typenzuweisung hin zu bekommen.

Aber ein Generic Type läßt sich scheinbar auch nicht als Konstante definieren, oder doch?

[Uwe Raabe]

Zitat von Mavarik:

Zitat von Uwe Raabe:

Delphi-Quellcode:

Procedure InitializeRecordDef(Var recordDef: TRecordDef);
Begin
  recordDef := TRecordDef.Create(SetupRecord[0], SetupRecord[1]);
End;

Mit den 2 Feldern geht das ja noch... Aber andere Records haben 100 Felder!

Du kannst natürlich auch die Konstanten direkt in das TRecordDef.Create verlagern. Solange das Konstanten-Array nur dafür benutzt wird daraus dynamische Arrays zu machen, wäre das immerhin auch ein Ansatz.

Delphi-Quellcode:

Procedure InitializeRecordDef(Var recordDef: TRecordDef);
Begin
  recordDef := TRecordDef.Create(
                  (Feldname: 'Magic'; Feldtype: sqKeyText),
                  (Feldname: 'Wert'; Feldtype: sqText));
End;