Merlin’s Delphi Forge

You want to save data to a temporary file but you don’t what to file name to use? Well, this function does all the work for you.

function CreateUniqueFileName(sPath: string): string;
var
chTemp: Char;
begin
repeat
Randomize;
repeat
chTemp := Chr(Random(43) + 47);
[...]

Bookmark It

Hide Sites

This is the harder way to print text in Delphi If you want to do it the easier way check out tip 4.1. Well, if for some reasons you may want to print using the Windows API here’s the code:
Code 1:

uses
Printers, WinSpool;
…
var
aDriver, aPort, aPrinterName: array[0..255] of Char; { aDriver and [...]

Bookmark It

Hide Sites