Einzelnen Beitrag anzeigen

Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Array of records zellegen

  Alt 22. Mär 2023, 10:51
Ja, Spring4D bzw Listen wären auch meine ersten Gedanken gewesen.

Wenn es denn unbedingt Arrays sein müssen, wäre mein Ansatz, erstmal ein Enum für die Automarken zu machen.
TAutoMarke = (amUnknown, amBMW, amMercedes, amToyota etc.);

Dann ein 2dimensionales Array
TAllesEinerMarke = array of [TAuto];
TAlleAutosProMarke = array[TAutoMarke] of TAllesEinerMarke;

Dann ein Dictionary aller möglichen Benamsungen
TMarkenBenamsung = TDictionary<TAutoMarke, string>;
... zB amMercedes mit 'Marzedes,Merzedec,blah'

Danach kannste das Originalarray in einer Schleife durchwandern und im Dictionary suchen. Dann abhängig von der gefundenen Benamsung in das entsprechende TAutoMarke-Unterarray innerhalb TAlleAutosProMarke kopieren.

Nur mal so aus dem Kopf ohne Gewehr
Nr.1 Delphi-Tool: [F7]
  Mit Zitat antworten Zitat