Verschiedene Arrays! Besser mit Generics?

[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* :mrgreen:

[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);

[Uwe Raabe]

Zitat:

Zitat von Mavarik (Beitrag 1245541)

Zitat:

Zitat von Uwe Raabe (Beitrag 1245440)

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;

[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 :oops:

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;

[himitsu]

Sieh das Default einfach wie ein New, nur ohne Pointer dazwischen.

Wenn man bei einfachen Typen anfängt, wird es vielleicht klarer.

Delphi-Quellcode:

Default(Integer) = 0  // Low(Integer)=MinInt und High(Integer)=MaxInt
Default(String) = ''  // Low(String)=erster Array-Index und High(String)=letzer Array-Index
Default(TButton) = nil

Und das kann man nun verschachteln (

Delphi-Quellcode:

Default(TMyRecord)

),
wobei quasi für jedes Feld des angegebenen Records das Default des entsprechenden Typen eingesetzt wird.
(im Prinzip entspricht es dem InitializeRecord/InitializeArray aus der SysUils)

[Der schöne Günther]

Ja, mir war nur gruselig, dass ich in der Hilfe zu dumm war, überhaupt etwas zum Ausdruck "Default" zu finden und auch keinen RTL-Code. Dass der alle Record-Felder so initialisiert, wie sie es bsp. in einer Klasse wären war mir schon klar. Nur vielleicht ließe sich das auch manuell noch für einen eigenen Record-Typen anpassen? Man weiß ja nie 8-)

[Mavarik]

Zitat:

Zitat von Union (Beitrag 1245550)

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?

[Union]

Wie hast Du denn die Taktzyklen auf dem Mobilgerät gemessen? Daran wäre ich auch mal sehr interessiert.