Generics richtig verstanden?

[haentschman]

Moin...

Zitat von EdAdvokat:

Wenn ich

Delphi-Quellcode:

type
  TPair<TKey,TValue> = class // TKey. TValue type parameters
     FKey: TKey;
     FValue: TValue;
   end;

aufnehme und Key zu FKey und Value zu FValue ändere läuft es.

...diese Deklaration brauchst du nicht neu zu implementieren! Das Original tut´s auch.

Zitat:

TIIPair = TPair<Integer, Integer>;
bleibt da noch.

...das sind ja auch Typdeklarationen die nur TPair<xxx,xxx> repäsentieren...um im Quelltext Schreibarbeit zu sparen oder es übersichtlicher zu machen.

Zitat:

Es hängt jeweils beim .create mit dem Hinweis "nicht genügend wirkliche Parameter".

...wo genau?

Beispiele:

Delphi-Quellcode:

unit Form.Main;

interface

uses
  Winapi.Windows, Winapi.Messages,
  System.SysUtils, System.Variants, System.Classes, System.Generics.Collections,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TfoMain = class(TForm)
    btnPostCode: TButton;
    procedure btnPostCodeClick(Sender: TObject);
  private

  public

  end;

var
  foMain: TfoMain;

implementation

{$R *.dfm}

procedure TfoMain.btnPostCodeClick(Sender: TObject);
var
  Postleitzahlen: TDictionary<string, string>;
begin
  Postleitzahlen := TDictionary<string, string>.Create;
  try
    Postleitzahlen.Add('53639', 'Königswinter');
    Postleitzahlen.Add('53117', 'Bonn1');
    Postleitzahlen.Add('53111', 'Bonn');

    ShowMessage('Die Postleitzahl für 53639 ist');
    ShowMessage(Postleitzahlen['53639']);
  finally
    FreeAndNil(Postleitzahlen);
  end;
end;

end.

Delphi-Quellcode:

unit Form.Main;

interface

uses
  Winapi.Windows, Winapi.Messages,
  System.SysUtils, System.Variants, System.Classes, System.Generics.Collections,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TMyPostCodeDictionary =  TDictionary<string, string>; // eigene Deklaration

  TfoMain = class(TForm)
    btnPostCode: TButton;
    procedure btnPostCodeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FMyPostCodeDictionary: TMyPostCodeDictionary;
  public

  end;

var
  foMain: TfoMain;

implementation

{$R *.dfm}

procedure TfoMain.FormCreate(Sender: TObject);
begin
  FMyPostCodeDictionary := TMyPostCodeDictionary.Create;
end;

procedure TfoMain.FormDestroy(Sender: TObject);
begin
  FMyPostCodeDictionary.Free;
end;

procedure TfoMain.btnPostCodeClick(Sender: TObject);
begin
  FMyPostCodeDictionary.Add('53639', 'Königswinter');
  FMyPostCodeDictionary.Add('53117', 'Bonn1');
  FMyPostCodeDictionary.Add('53111', 'Bonn');

  ShowMessage('Die Postleitzahl für 53639 ist');
  ShowMessage(FMyPostCodeDictionary['53639']);
end;

end.

[EdAdvokat]

Hallo Haentschman, es knallt beim Aufruf des constructors:

Delphi-Quellcode:

type
  TIIPair = TPair<Integer, Integer>;
... 
procedure TForm1.btnKeyClick(Sender: TObject);
var
  Key: TPair<string, integer>;
begin //string zugewiesen
 //Key := TPair<string, integer>.create; //<----Fehler"Nicht genügend wirkliche Parameter"
  try
    Key.Key := edtKey.Text;
    lblKey.caption := Key.Key;
  finally
    freeandNil(Key);
  end;
end;

procedure TForm1.btnInhaltClick(Sender: TObject);
var
  Inhalt: TPair<string, Integer>; //Integer zugewiesen
begin
  //Inhalt := TPair<string, Integer>.create;//<----Fehler s.o.
  try
    Inhalt.Value := StrToInt(edtInhalt.text);
    lblValue.caption := inttostr(Inhalt.Value);
  finally
    FreeAndNil(Inhalt);
  end;
end;

habe dann die Zeile auskommentiert und so läßt sich bei Zuweisung von Integer das Programm ohne .create ausführen.
beim ersten Zuweisen eines strings gibt es eine Exeption :
pgeneric1
---------------------------
Zugriffsverletzung bei Adresse 00020729. Lesen von Adresse FFFFFFFF.

OK
aber trotzdem wird das vorgesehene Label mit dem eingegebenen String gefüllt.
Diese beiden Procedure waren lediglich für mich als Test für das Verständnis der generics entspr. den Hinweisen von Emba..
vorgesehen. Die haben in den beiden vormals aufgeührten Links auch so mit TPair gearbeitet.
Ich habe mir zwischenzeitlich mal system.generics.collection vorgenommen und dort auch TPair gefunden. Es müßte also so gehen, wie
Du es aufgeführt hast, doch warum knallt es doch? Habe bislang dazu keine Erklärung.

[EdAdvokat]

Habe nochmals probiert das
Key := TPair<string, integer>.create; und auch die Freigabe von Key völlig herauszunehmen. Dann läuft das Programm wie gewollt. Also ist der Aufruf von .create überflüssig und daher auch keine Freigabe nötig. Alles läuft in der system.generics.collection ab oder?

[EdAdvokat]

Deine Beispiele "Postleitzahlen" habe ich verstanden. Dieser Teil war nicht strittig und lief exakt.
Das erste Beispiel gibt die bisherige Lösung wider und beim zweiten Beispiel rufst Du den constructor im FormCreate auf und gibst die Speicher
dann wieder frei. Also die unit system.generics.collection nimmt viel Arbeit ab und hat überraschende Lösungen parat.