|
@@ -2240,7 +2240,7 @@ VAR err : integer;
|
|
|
BEGIN
|
|
BEGIN
|
|
|
getmem ( slide, wsize );
|
|
getmem ( slide, wsize );
|
|
|
fillchar ( slide [ 0 ], wsize, #0 );
|
|
fillchar ( slide [ 0 ], wsize, #0 );
|
|
|
- assign ( infile, in_name );
|
|
|
|
|
|
|
+ assign ( infile, strpas(in_name) );
|
|
|
storefilemode := filemode;
|
|
storefilemode := filemode;
|
|
|
filemode := 0;
|
|
filemode := 0;
|
|
|
{$push} {$I-}
|
|
{$push} {$I-}
|
|
@@ -2315,7 +2315,7 @@ BEGIN
|
|
|
reachedsize := 0;
|
|
reachedsize := 0;
|
|
|
seek ( infile, offset );
|
|
seek ( infile, offset );
|
|
|
|
|
|
|
|
- assign ( outfile, out_name );
|
|
|
|
|
|
|
+ assign ( outfile, strpas(out_name) );
|
|
|
{$push} {$I-}
|
|
{$push} {$I-}
|
|
|
rewrite ( outfile, 1 );
|
|
rewrite ( outfile, 1 );
|
|
|
{$pop}
|
|
{$pop}
|
|
@@ -2578,7 +2578,7 @@ VAR bufstart, headerstart, start : longint;
|
|
|
|
|
|
|
|
BEGIN
|
|
BEGIN
|
|
|
WITH zprec DO BEGIN
|
|
WITH zprec DO BEGIN
|
|
|
- assign ( f, zipfilename );
|
|
|
|
|
|
|
+ assign ( f, strpas(zipfilename));
|
|
|
filemode := 0; {Others may read or write};
|
|
filemode := 0; {Others may read or write};
|
|
|
{$push} {$I-}
|
|
{$push} {$I-}
|
|
|
reset ( f, 1 );
|
|
reset ( f, 1 );
|
michael