Простенький пример с сайта Embarcadero
1.
https://docwiki.embarcadero.com/CodeExamples/Sydney/en/Generics_Collections_TDictionary_(Delphi)
Но EurekaLog ругается на утечки памяти.
Вопрос больше теоретический:
Если есть несколько обеьктов одного класса, то как их правильно освободить?
В данном случае 2 раза City := TCity.Create а освободается только один раз.
Знаю, что модно загнать в StringList.Add('', Object) или ObjectDictiaonary....
Или как вариант - запись.
А есть какие-то более очевидные варианты?
Типа City[1], city[2]....
спасибо!
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
type
TCity = class
Country: String;
Latitude: Double;
Longitude: Double;
end;
var
Form20: TForm20;
implementation
{$R *.dfm}
procedure TForm20.Button1Click(Sender: TObject);
var
Dictionary: TDictionary<String, TCity>;
City, Value: TCity;
Key: String;
i: integer;
begin
{ Create the dictionary. }
Dictionary := TDictionary<String, TCity>.Create;
City := TCity.Create;
City.Country := 'United Kingdom';
City.Latitude := 51.5;
City.Longitude := -0.17;
Dictionary.Add('London', City);
City := TCity.Create;
City.Country := 'Argentina';
{ Notice the wrong coordinates }
City.Latitude := 0;
City.Longitude := 0;
Dictionary.Add('Buenos Aires', City);
{ Clear all entries in the dictionary. }
Dictionary.Clear;
{ Free the memory allocated for the dictionary. }
Dictionary.Free;
City.Free;
end;
end.
