Hello List,
This function DOES work on my development machine (XP SP2) but DOES NOT work
on the target PC (XP SP2).
Function TestForPrinter(pn:string):Boolean;
var
r:Boolean;
ni,iloop:integer;
mess:string;
begin
r:=true;
ni:=-1;
for iloop:=0 to printer.printers.Count-1 do
begin
if trim(printer.printers[iLoop])=pn then
begin
ni:=iLoop;
end;
end;
if ni<1 then // Oh No - No Printer
begin
r:=false;
mess:='!! ERROR - printer '+pn+' not installed on this PC !!'+#10;
mess:=mess+''+#10;
mess:=mess+'Contact the Computer Department'+#10;
showmessage(mess);
end;
TestForPrinter:=r;
end;
This snippet works on both PC's - (I thought the trim function might be
getting in the way so I put logic in to test)
procedure testy;
var
iloop:integer;
pn,an:string;
begin
form1.CheckListBox1.Clear;
pn:=form1.edt_find.Text; {tedit used to test for printers and duffstuff}
for iloop:=0 to printer.printers.Count-1 do
begin
form1.CheckListBox1.Items.Add(printer.printers[iLoop]);
if form1.CheckBox1.Checked then
an:=trim(printer.printers[iLoop])
else
an:=printer.printers[iLoop];
if an=pn then
form1.CheckListBox1.Checked[iLoop]:=true;
end;
end;
Why does one work and the other not? - I am confused++
Chris Moore
Computer Department
Brother Industries (UK) Ltd
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
