Changeset 70 for trunk/Compiler/UAnalyzer.pas

Timestamp:

Jul 31, 2012, 4:06:07 PM (12 years ago)

Author:

chronos

Message:

• Modified: Code related to pascal language in compiler moved to module.

File:

• trunk/Compiler/UAnalyzer.pas (modified) (2 diffs)

trunk/Compiler/UAnalyzer.pas

@@ -83 +83 @@
   end;
 
-  // TListAnalyzer = TGObjectList<Integer, TAnalyzer>
+  { TListAnalyzer }
+
   TListAnalyzer = class(TListObject)
+    function SearchBySysName(Name: string): TAnalyzer;
+    procedure LoadToStrings(Strings: TStrings);
   end;
 
@@ -91 +94 @@
 
 implementation
+
+{ TListAnalyzer }
+
+function TListAnalyzer.SearchBySysName(Name: string): TAnalyzer;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TAnalyzer(Items[I]).SysName <> Name) do Inc(I);
+  if I < Count then Result := TAnalyzer(Items[I])
+    else Result := nil;
+end;
+
+procedure TListAnalyzer.LoadToStrings(Strings: TStrings);
+var
+  I: Integer;
+begin
+  try
+    Strings.BeginUpdate;
+    Strings.Clear;
+    for I := 0 to Count - 1 do
+      Strings.AddObject(TAnalyzer(Items[I]).Name, Items[I]);
+  finally
+    Strings.EndUpdate;
+  end;
+end;
 
 { TAnalyzer }