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*

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

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

[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 (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

[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?

[Union]

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