kia
01-10-2003, 20:45:33
Hola.
Os pongo este codigo sacado de la "Cara Oculta de D4" y que funciona perfecto en maquinas con NT y W98, pero al ejecutarlo en mi maquina con XP se para, y sale una ventana con el sinbolo CPU en una esquina, la ventana contiene muchos numeros HEX supongo u me señala un BREAK POIN. Al vover a pulsar F9. Sale todo bien.
Sabeis por que motivo? Utilizo D5 y XP. Gracias......
------------------------------------------
procedure TSelec_imp.Button1Click(Sender: TObject);
var
Myrep:TCustomQuickRep;
Fields:TStrings;
I:Integer;
begin
MyREp:=nil;
Table1.open;
try
Fields:=TstringList.create;
try
for i:=0 to CheckListBox1.Items.Count-1 do
if checkListBox1.Checked[i] then
Fields.Add(CheckListBox1.Items[i]);
if Fields.Count>0 then
begin
QRCreateList(MyREp,Self,Table1,'',Fields);
try
MyRep.Preview;
finally
MyRep.Free;
end;
end;
finally
Fields.free;
end;
finally
table1.close;
end;
end;
------------------------------
Salu2. Kia;)
Os pongo este codigo sacado de la "Cara Oculta de D4" y que funciona perfecto en maquinas con NT y W98, pero al ejecutarlo en mi maquina con XP se para, y sale una ventana con el sinbolo CPU en una esquina, la ventana contiene muchos numeros HEX supongo u me señala un BREAK POIN. Al vover a pulsar F9. Sale todo bien.
Sabeis por que motivo? Utilizo D5 y XP. Gracias......
------------------------------------------
procedure TSelec_imp.Button1Click(Sender: TObject);
var
Myrep:TCustomQuickRep;
Fields:TStrings;
I:Integer;
begin
MyREp:=nil;
Table1.open;
try
Fields:=TstringList.create;
try
for i:=0 to CheckListBox1.Items.Count-1 do
if checkListBox1.Checked[i] then
Fields.Add(CheckListBox1.Items[i]);
if Fields.Count>0 then
begin
QRCreateList(MyREp,Self,Table1,'',Fields);
try
MyRep.Preview;
finally
MyRep.Free;
end;
end;
finally
Fields.free;
end;
finally
table1.close;
end;
end;
------------------------------
Salu2. Kia;)