Bonjour,
Bon voici le code incriminé :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| {Calcul des soldes et remplissage du tableau }
With d_m.sql_lig_session Do Begin
First;
tot_temp1:=0;tot_temp2:=0;tot_temp3:=0;
while not eof Do begin
tot_temp1:=tot_temp1 + d_m.sql_lig_session.FieldByName('lig_mt_total').AsFloat;
tot_temp2:=tot_temp2 + d_m.sql_lig_session.FieldByName('lig_mt_paye').AsFloat;
tot_temp3:=tot_temp3 + d_m.sql_lig_session.FieldByName('lig_mt_du').AsFloat;
{ remplissage du tableau }
DecodeDate(d_m.sql_lig_session.FieldByName('lig_date_session').AsDateTime,annee,mois,jour);
if d_m.sql_lig_session.FieldByName('lig_colis_alim').AsInteger<>0
Then TStaticText(FindComponent('st_tab_col_'+IntToStr(mois))).Caption:='X' ;
Next;
End;
End; |
Et à l'éxécution j'ai un Raised ExcecptionClass External SIGSEGV
et l'unité Control.inc s'ouvre et le focus se met sur cette ligne
if TMethod(@Self.GetTextBuf).Code = Pointer(@TControl.GetTextBuf)
1 2 3 4 5 6 7 8 9 10 11 12 13
| {------------------------------------------------------------------------------
TControl GetText
------------------------------------------------------------------------------}
function TControl.GetText: TCaption;
var
len: Integer;
begin
// Check if GetTextBuf is overridden, otherwise
// we can call RealGetText directly
if TMethod(@Self.GetTextBuf).Code = Pointer(@TControl.GetTextBuf)
then begin
Result := RealGetText;
end |
Bref je suis perdu (encore)
Merci
Eric
Partager