N1ghtF1re
diff --git a/‎AutoProcedureTableGenerator.exe
140 Bytes b/‎AutoProcedureTableGenerator.exe
140 Bytes
diff --git a/‎src/Preview.png
232 KB b/‎src/Preview.png
232 KB
diff --git a/‎src/Win32/Debug/AutoProcedureTableGenerator.exe
140 Bytes b/‎src/Win32/Debug/AutoProcedureTableGenerator.exe
140 Bytes
diff --git a/‎src/Win32/Debug/genTable.dcu
-116 Bytes b/‎src/Win32/Debug/genTable.dcu
-116 Bytes
diff --git a/‎src/genTable.pas
Lines changed: 5 additions & 5 deletions b/‎src/genTable.pas
Lines changed: 5 additions & 5 deletions
@@ -126,16 +126,16 @@ procedure TTableGenForm.btnGenTableClick(Sender: TObject);
     begin
       isOk := true;
     end;
-    memoInpCode.Lines[i] := trim(memoInpCode.Lines[i]);
-    b1 := pos('PROCEDURE',AnsiUpperCase(memoInpCode.Lines[i]));
-    b2 := pos('FUNCTION', AnsiUpperCase(memoInpCode.Lines[i]));
+    curr := trim(memoInpCode.Lines[i]);
+    b1 := pos('PROCEDURE',AnsiUpperCase(curr));
+    b2 := pos('FUNCTION', AnsiUpperCase(curr));
 
     if isOk and
+    (
     ( b1 > 0)
     or
-    (b2 > 0) then
+    (b2 > 0)) then
     begin      
-      curr:=  memoInpCode.Lines[i];
 
       if (b1 > 1) or (b2 > 1) then
       begin