Changeset 4 for trunk/UInstance.pas

Timestamp:

Feb 3, 2011, 8:01:00 AM (13 years ago)

Author:

chronos

Message:

• Fixed: Add and edit operations.

File:

• trunk/UInstance.pas (modified) (4 diffs)

trunk/UInstance.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, USource;
+  Classes, SysUtils, USource, Contnrs;
 
 type
-
   { TInstance }
 
@@ -15 +14 @@
     Id: Integer;
     Name: string;
+    Downloaded: Boolean;
+    Compiled: Boolean;
     IDESource: TSource;
     IDERevision: string;
@@ -24 +25 @@
     procedure Start;
     procedure Update;
+    procedure Download;
+  end;
+
+  { TInstanceList }
+
+  TInstanceList = class(TObjectList)
+    function GetNewId: Integer;
   end;
 
 implementation
+
+{ TInstanceList }
+
+function TInstanceList.GetNewId: Integer;
+var
+  I: Integer;
+begin
+  Result := 1;
+  for I := 0 to Count - 1 do
+    if TInstance(Items[I]).Id >= Result then
+      Result := TInstance(Items[I]).Id + 1;
+end;
 
 { TInstance }
@@ -45 +65 @@
 end;
 
+procedure TInstance.Download;
+begin
+
+end;
+
 end.