Changeset 9 for trunk/ULocalization.pas

Timestamp:

Feb 11, 2008, 10:27:49 AM (16 years ago)

Author:

george

Message:

Opraveno: Některé neuvolňované pamětové struktury.
Opraveno: Chyba při ukončování a uvolňování paměti.

Location:

trunk

Files:

• . (modified) (1 prop)
• ULocalization.pas (modified) (3 diffs)

trunk/ULocalization.pas

@@ -10 +10 @@
     Items: TStringList;
     Name: string;
+    constructor Create;
+    destructor Destroy;
   end;
 
   TLocalization = class(TDataModule)
     procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
   public
     ActiveLanguage: Integer;
@@ -59 +62 @@
       try
         Name := ReadString('Info', 'Language', 'None');
-        Items := TStringList.Create;
         ReadSectionValues('Main',Items);
       finally
@@ -95 +97 @@
 end;
 
+procedure TLocalization.DataModuleDestroy(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := 0 to High(Languages) do
+    Languages[I].Free;    
+end;
+
+{ TLanguage }
+
+constructor TLanguage.Create;
+begin
+  Items := TStringList.Create;
+end;
+
+destructor TLanguage.Destroy;
+begin
+  Items.Free;
+end;
+
 end.