Warum auch nicht? Du benutzt
System.Generics.Collections
doch gar nicht. Dort gibt zwar es ein fertiges
TPair<TKey, TValue>
, du hast aber dein eigenes gemacht. Nicht so ganz verstanden habe ich weshalb du deiner Klasse gleich noch einen Konstruktor/Destruktor und das alles verpasst hast, wenn sie doch gar nichts machen. Hätte das nicht schon gereicht?
Delphi-Quellcode:
TPair<TKey, TValue> = class
Key: TKey;
Value: TValue;
end;
Generics an sich sind gar nicht so besonders. Nimm doch mal Arrays.
Array of String
,
Array of Byte
,
Array of Integer
,
Array of TWombatz
. Hast du ja auch schon tausend mal benutzt.
Generics in Delphi erlauben dir jetzt noch viel mehr. Beliebte Beispiele sind eben die Dinge welche du in
System.Generics.Collections
schon fertig vorfindest.
Beispielsweise das
TDictionary<TKey, TValue>
: Du kannst dir ein Dictionary für jeden beliebigen Schlüssel & Wert bauen.
Ein Beispiel:
Delphi-Quellcode:
procedure postleitzahlen();
type
TPostleitzahl = Integer;
TOrtsName = String;
var
postleitzahlen: TDictionary<TPostleitzahl, TOrtsName>;
begin
postleitzahlen := TDictionary<TPostleitzahl, TOrtsName>.Create();
postleitzahlen.Add(53639, 'Königswinter');
postleitzahlen.Add(53117, 'Bonn');
postleitzahlen.Add(53111, 'Bonn');
ShowMessage('Die Postleitzahl für 53639 ist');
ShowMessage( postleitzahlen[53639] );
end;
Ebenso könntest du mit einem Dictionary ein TWombatz zu einem Byte-Wert zuordnen.
was muss ich ergänzen, um Postleitzahlen.Add... aufrufen zu können? ist hier eine Objectlist gefragt und wie mache ich das?
Ich habe versucht die mir vorgeschlagene procedure postleitzahlen() aufzurufen doch bei Add ist schluss.