Changeset 2 for trunk/USource.pas

Timestamp:

Feb 2, 2011, 11:31:12 AM (13 years ago)

Author:

chronos

Message:

• Added: Routines for Load and Save configuration.

File:

• trunk/USource.pas (modified) (3 diffs)

trunk/USource.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, Contnrs;
 
 type
@@ -12 +12 @@
 
   TSource = class
+    Id: Integer;
     Name: string;
     SubversionURL: string;
@@ -19 +20 @@
   end;
 
+  { TSourceList }
+
+  TSourceList = class(TObjectList)
+    function FindById(Id: Integer): TSource;
+  end;
+
 implementation
+
+{ TSourceList }
+
+function TSourceList.FindById(Id: Integer): TSource;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TSource(Items[I]).Id <> Id) do Inc(I);
+  if I < Count then Result := TSource(Items[I])
+    else Result := nil;
+end;
 
 end.