Changeset 9 for branches/Void/UModel.pas

Timestamp:

Nov 9, 2009, 10:15:36 AM (15 years ago)

Author:

george

Message:

• Přidáno: Definování systémových procedůr.

File:

• branches/Void/UModel.pas (modified) (8 diffs)

branches/Void/UModel.pas

@@ -21 +21 @@
   end;
 
-  { TBeginEnd }
-
   TBeginEnd = class
     Commands: TList;
@@ -28 +26 @@
     destructor Destroy; override;
     procedure Clear;
+  end;
+
+  TProcedure = class
+    Name: string;
+    Parameters: TStringList;
+    BeginEnd: TBeginEnd;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -36 +42 @@
   public
     Variables: TList;
+    Procedures: TList;
     BeginEnd: TBeginEnd;
     function FindVariableByName(AName: string): TVariable;
+    function FindProcedureByName(AName: string): TProcedure;
+    procedure Init;
     procedure Clear;
     constructor Create;
@@ -51 +60 @@
   Variables := TList.Create;
   BeginEnd := TBeginEnd.Create;
+  Procedures := TList.Create;
 end;
 
@@ -60 +70 @@
     TVariable(Variables[I]).Destroy;
   Variables.Destroy;
+  for I := 0 to Procedures.Count - 1 do
+    TProcedure(Procedures[I]).Destroy;
+  Procedures.Destroy;
   BeginEnd.Destroy;
   inherited Destroy;
@@ -74 +87 @@
 end;
 
+function TModel.FindProcedureByName(AName: string): TProcedure;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Procedures.Count) and (TProcedure(Procedures[I]).Name <> AName) do
+    Inc(I);
+  if I < Procedures.Count then Result := Procedures[I] else Result := nil;
+end;
+
+procedure TModel.Init;
+begin
+  with TProcedure(Procedures[Procedures.Add(TProcedure.Create)]) do begin
+    Name := 'WriteLn';
+  end;
+   with TProcedure(Procedures[Procedures.Add(TProcedure.Create)]) do begin
+    Name := 'Exit';
+  end;
+  with TProcedure(Procedures[Procedures.Add(TProcedure.Create)]) do begin
+    Name := 'ReadLn';
+  end;
+end;
+
 procedure TModel.Clear;
 var
@@ -82 +118 @@
   Variables.Clear;
   BeginEnd.Clear;
+  Init;
 end;
 
@@ -124 +161 @@
 end;
 
+constructor TProcedure.Create;
+begin
+  BeginEnd := TBeginEnd.Create;
+  Parameters := TStringList.Create;
+end;
+
+destructor TProcedure.Destroy;
+begin
+  Parameters.Destroy;
+  BeginEnd.Destroy;
+  inherited Destroy;
+end;
+
 end.