Discussion :

[Droïde Système7]

Bonjour

Après toute sorte de manip, je n'arrive pas à éviter un message d'erreur direct du système.

Une histoire de gestion des exceptions, mais imbriquée dans un autre Try et dans une boucle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
[...]
var
  StListSource: TStringList;                    
  iSource: Integer;
begin
  if FileExists(Form1.PathJournal) then
  begin
    StListSource := TStringList.create;
    Try
      StListSource.LoadFromFile(Form1.PathJournal);
      for iSource := 0 to StListSource.Count - 1 do
      BEGIN
//TRY
        if Pos('Date', StListSource.Strings[iSource]) > 0 then
        begin
          ShowMessage('OK passage par là...'); /// exit;
TRY
          if not Pos('opti', StListSource.Strings[iSource - 8]) > 0 then 
EXCEPT           
on EconvertError do
MessageDlg('Erreur : Vous devez bla bla bla...', mtError, [mbOk], 0);
END;
        end;
 
      END;
    Finally
      StListSource.free;
    end;
  end;
end;

En principe le Except récolte l'erreur juste au dessous de la portion de code délicate.

Mais j'ai toujours la boite d'erreur suivante : "Indice de Liste hors limite (-1)"

Je suis certain que la ligne coupable c'est "iSource - 8" = car à "- 7" ça passe sans problème.

Bref, si vous avez une meilleure idée, merci de vos lumières.

@+

PS : Je précise que je test ensuite hors EDI...

[ShaiLeTroll]

Pourquoi tu fais -8 ?
C'est une particularité de ta donnée ?
évidemment si 'Date' est présent dans une ligne entre 0 et 7, lorsque tu vas tester l'absence de 'opti', 8 lignes plus tôt cela ne va pas fonctionner !
n'oublie pas que les lignes sont de 0 à n-1 !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
EXCEPT           
  on EconvertError do 
    MessageDlg('Erreur : Vous devez bla bla bla...', mtError, [mbOk], 0);
  on EListError do
   Beep;
END;

[Droïde Système7]

Hello Shai

Pourquoi tu fais -8 ?
C'est une particularité de ta donnée ?

Disons que je scan un texte sur des portions récurrentes de données.

Mais il se peut qu'il y ait des lignes qui sont absentes pour x raison.

Bref ce - 8 correspond à ma base sur la recherche de "Date", et "opti" doit se trouver exactement au niveau - 8 au dessus de "date".

Et si no "opti" à ce niveau =

J'ai remplacé le couple Except End de ton code, mais toujours pareil (hors EDI) ; tout est ok, sauf lors de l'appel de la proc.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
[...]
        if Pos('Date', StListSource.Strings[iSource]) > 0 then
        begin
          ShowMessage('OK passage par là...'); /// exit;
TRY
          if not Pos('opti', StListSource.Strings[iSource - 8]) > 0 then
EXCEPT           
  on EconvertError do 
    MessageDlg('Erreur : Vous devez bla bla bla...', mtError, [mbOk], 0);
  on EListError do
   Beep;
END; 
[...]

@+

[Cl@udius]

Salut

Perso, j'inverserai la recherche: D'abord sur opti puis sur Date (en vérifiant que l'occurence de opti se situe au minimum sur la 8° ligne).

Ton code est incomplet ? Car cette construction me parait étrange:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
if not Pos('opti', StListSource.Strings[iSource - 8]) > 0 then
  // then quoi donc ?
EXCEPT           
  on EconvertError do 
    MessageDlg('Erreur : Vous devez bla bla bla...', mtError, [mbOk], 0);
  on EListError do
   Beep;
END;

@+ Claudius

[Droïde Système7]

Salut Claude

Perso, j'inverserai la recherche: D'abord sur opti puis sur Date (en vérifiant que l'occurence de opti se situe au minimum sur la 8° ligne).

C'est que hors de cette proc, j'avais tenté de testé directo, justement en regardant sir la 8° ligne en amont était présente.

Je pensais avoir trouvé la solution, bah oui aucun code complexe, simplement un test sur l'existence ou non de cette fichue ligne + entre le coupe Try / Except.

Mais idem = toujours la même erreur hors EDI.

Ton code est incomplet ? Car cette construction me parait étrange:

je me suis également fait cette remarque, mais si j'ajoute ce 'then' C'est que Mister EDI me le réclame afin d'ensuite se compiler les doigts dans le nez. Si pas de then = niet compil...

A vrai dire, je suis pour l'instant encore assez maladroit avec la gestion des exceptions avec boucles et autres Try

J'ai même des doutes quant au pouvoir d'intercepter cette erreur précise...

J'ajoute que c'est un évènement en Form1 qui pointe vers la proc (ici super simplifiée) en question qui est située dans un Unité spéciale sans Form.

Et lors de plantage avec EDI actif, j'ai un message d'erreur qui est pointé sur ma Form1 = au niveau d'un Case Of (juste sous la procédure d'appel).

Mais je suis absolument certain de la cause ; elle se situe au niveau de la "recherche" de la ligne -8 (car - 7 = OK).

J'ai testé sous toutes les coutures, et tout est concordant, aucun doute là dessus.

Un coup de bol, car des fois, la mise du doigt sur le truc qui coince, n'est pas toujours évident.

@+

[Andnotor]

Et pourquoi ne contrôles-tu pas iSource >= 8 avant ton test

[Cl@udius]

Re,

A vrai dire, je suis pour l'instant encore assez maladroit avec la gestion des exceptions avec boucles et autres Try

Et si tu t'en passais.

Ce code ne serait pas tout simplement suffisant ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var
  StListSource: TStringList;
  iSource: Integer;
begin
  if FileExists(Form1.PathJournal) then
  begin
    StListSource := TStringList.create;
    try
      StListSource.LoadFromFile(Form1.PathJournal);
      for iSource := 8 to StListSource.Count - 1 do
      begin
        if Pos('Date', StListSource.Strings[iSource]) > 0  then
        begin
          if Pos('opti', StListSource.Strings[iSource - 8]) > 0 then
            AppelDeMaProc;
          else
          begin
            MessageDlg('Erreur : Vous devez bla bla bla...', mtError, [mbOk], 0);
            Break;
          end;
        end;
      end;
    finally
      StListSource.Free;
    end;
  end;
end;

[EDIT]

Et pourquoi ne contrôles-tu pas iSource >= 8 avant ton test

+1
C'est bien ce que je pense. Autant éviter un try/except si ce n'est pas nécessaire.
@+

[Droïde Système7]

Salut les copains,

Hé bien... ouffff !

Claude, impec ton astuce de tester par bloc de 8 lignes et non d'envoyer direct toute la sauce.

J'ai un peu pataugé pour intégrer tes modifs dans ma proc entière.

Mais j'ai testé sous toutes les coutures et le message d'erreur se déclenche si le "- 8" n'existe pas.

Super et un grand merci et bravo

Je pensais pourtant qu'un try/except était indispensable, ou un Raise.

à Tous.