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.