Update zona demo

rareMaxim · Dec 16, 2018 · 98e6b0e · 98e6b0e
1 parent a036ee6
commit 98e6b0e
Show file tree

Hide file tree

Showing 2 changed files with 184 additions and 124 deletions.
diff --git a/Test/ZonaRu/Project6.dpr b/Test/ZonaRu/Project6.dpr
@@ -11,11 +11,11 @@ uses
 procedure Test;
 var
   Zona: TZona;
-  LMovie: IznCoverSerial;
+  LMovie: IznCoverMedia;
 begin
   Zona := TZona.Create(nil);
   try
-    for LMovie in Zona.GetMovies do
+    for LMovie in Zona.GetMovies(0,100) do
     begin
       Writeln(LMovie.name_rus,' ' , LMovie.abuse,' ', LMovie.id);
     end;