FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Por que no funciona este codigo en XP?
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
__________________
Nadie nace enseñado, pide y se te dara. |
|
|
|