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;) |
Hola foros.
He podido ver que nadie a contestado a este hilo. Pero hay que contribuir y despues de mas de 30 dias de pruebas puedo deciros lo siguiente: Este error no es grave solo se produce cuando se compila en modo de diseño. Cuando se efectua una instalción completa del progarma, el error desaparece y funcona todo bien. Por si le pasa a alguna persona mas ..... Todavia no se por que.? Gracias Kia.;) |
hola; dices ke el codigo explota misteriosamente pero igual funciona verdad???
lo unico ke se me ocurre es ke el programa explota en alguna sentecia try.. finally (creo ke hay 3) tal vez poner un beep o un showmessage te saque de dudas; mas no puedo decirte si no ke es xp para desarrollar software es ahi como 3/4 Zuerte |
¿En qué línea ocurre el error?... prueba reemplazando el Preview por PreviewModal para detener el hilo de ejecución!
Saludos! |
La franja horaria es GMT +2. Ahora son las 11:47:13. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi