Textmerge in Delphi

[ChrisRChamberlain]

Hi all

Would appreciate a translation to Delphi code of the following VFP code.

In pseudocode, create the text file C:\temp\reportname.txt by turning on TEXTMERGE, hiding the output with NOSHOW, insert the string 'D:\My Application\Report output.pdf' on the first line, close the text file and turn TEXTMERGE off.

SET TEXTMERGE ON TO C:\temp\reportname.txt NOSHOW
\\D:\My Application\Report output.pdf
SET TEXTMERGE OFF
SET TEXTMERGE TO

FAQ184-2483 - the answer to getting answered.​

Chris

http://www.pdfcommander.co.uk

 

[richardchaven]

var
   ThisFileName : String;
   ThisContent : String;
begin
   ThisFileName := 'C:\temp\reportname.txt';
   ThisContent := '\\D:\My Application\Report output.pdf';


   with TFileStream.Create(ThisFileName, fmCreate) do
   try
       Write(PChar(ThisContent)^, Length(ThisContent));
   finally
       Free;
   end;
end;

You could skip using variables and hard-code everything, but they make the code easier to read and safer to change.

Cheers

 

[ChrisRChamberlain]

richardchaven

Thanks for the response - by way of explanation, \\ is VFP's way of appending the following string to the file.

FAQ184-2483 - the answer to getting answered.​

Chris

http://www.pdfcommander.co.uk