|
|
@@ -1,6 +1,6 @@ |
|
|
|
var
|
|
|
|
url: string;
|
|
|
|
url : string;
|
|
|
|
begin
|
|
|
|
url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8082 + Random(4) ));
|
|
|
|
ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
|
|
|
|
end. |
|
|
|
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(10)) );
|
|
|
|
ResultURL := URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
|
|
|
|
end.
|