Changeset 9 for trunk/SunriseChatCoreUnit.pas

Timestamp:

Feb 11, 2008, 10:27:49 AM (17 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)
• SunriseChatCoreUnit.pas (modified) (3 diffs)

trunk/SunriseChatCoreUnit.pas

@@ -3 +3 @@
 interface
 
-uses
+uses                                                                       
   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
   Forms, StdCtrls, ExtCtrls, SunriseChatCoreUtils, DateUtils, Dialogs;
@@ -235 +235 @@
 begin
   Active := False;
-  for I := 0 to UserList.Count-1 do TList(UserList[I]).Free;
+  for I := 0 to UserList.Count - 1 do TList(UserList[I]).Free;
   UserList.Free;
   LocalUser.Free;
-  for I := 0 to RoomList.Count-1 do TRoom(RoomList[I]).Free;
+  for I := 0 to RoomList.Count - 1 do TRoom(RoomList[I]).Free;
   RoomList.Free;
   inherited;
@@ -502 +502 @@
   except
   end;
+  SourceUser.Free;
+  TargetUSer.Free;
 end;