Code: Select all
array[0..infinite]
Code: Select all
array[0..infinite]
Code: Select all
function RV_GetPrinterDC: HDC;
var ADevice, ADriver, APort:array[0..1023] of Char;//old array[0..79] of Char;
Code: Select all
function TPrintableRVData.InitPrinterCanvas: TCanvas;
var HDC: THandle;
begin
HDC := RV_GetPrinterDC;
//error here
if HDC=0 then
......
Code: Select all
RV_GetPrinterDC
......
end. //no error yet
Code: Select all
Dummy :=''; while Length(Dummy)<10 do Dummy:=Dummy+' ';