Advertisement
Guest User

Untitled

a guest
Aug 14th, 2018
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.61 KB | None | 0 0
  1.   1)
  2.   if not UseConvDir then
  3.     begin
  4.       InFile := MakeTempFilename + FromFormat;
  5.       OutFile := MakeTempFilename + '.html';
  6.     end
  7.   else
  8.     begin
  9.       InFile := TempDir + IntToStr(FileCount) + FromFormat;
  10.       OutFile := TempDir + IntToStr(FileCount) + '.html';
  11.       Inc(FileCount);
  12.     end;
  13.  
  14.   2)
  15.   if not UseConvDir then
  16.   begin
  17.     InFile := MakeTempFilename + FromFormat;
  18.     OutFile := MakeTempFilename + '.html';
  19.   end
  20.   else
  21.   begin
  22.     InFile := TempDir + IntToStr(FileCount) + FromFormat;
  23.     OutFile := TempDir + IntToStr(FileCount) + '.html';
  24.     Inc(FileCount);
  25.   end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement