MAKE CAB + CHECKLISTBOX

Commentaire de Nono40 le 21/04/2006 00:10:23

Deux trucs. FindFirst et FindNext ça s'utilise avec un repeat until, le findclose ne doit être fait que si le FindFirst réussi.
If FindFirst()=0 Then
Begin
  Repeat
    // Le code de gestion d'une occurence ici et seulement ici
  Until FindNext()<>0;
  FindClose()
End;

Le deuxième truc encore plus moche c'est le GetSelection:TStringList. Une grosse fuite de mémoire en perpective car il faut détruire la liste retournée par la fonction ce que personne ne fera... Regarde dans le code de la VCL pour voir comment sont gérées les propriétés de type TStrings. Ta méthode ne gère pas non plus les éventuelles erreur de durant le code entre la création de la liste et sa destruction.

Si vraiment tu veux faire une fonction que retourne un TStrings il faut faire comme suit :
Proceudre GetSelection(Selection:TStrings);
Begin
  // Pas de create ici
End;
L'appel :
MaListe := TStringList.Create;
Try
  GetSelection(MaListe);
  // Traitement de la liste
Finally
  MaListe.Free;
End;

Commentaire de f0xi le 21/04/2006 10:47:42 administrateur CS

oui Nono, mais attention a la difference entre While et Repeat :

Repeat Until execute l'instruction qu'elle contient au moins une fois meme si l'expression est fausse ... ce qui peu provoquer des erreurs si on ne control pas avant l'entrée dans la boucle.

While Do n'execute l'instruction qu'elle contient que si et seulement si l'expression est vraie. CAD, il faut que l'expression soit vraie dés le depart pour pourvoir rentrer dans la boucle.


avantage de Repeat Until c'est qu'on ne repete pas non plus le code pour FindFirst vus qu'on entre au moins une fois dans le Repeat Until, donc le premier elements trouver est toujours traiter, sauf si bien sur FindFirst <> 0 dans la condition If ...

par contre la ou je ne suis pas vraiment d'accord, c'est qu'un FindFirst,FindNext doit etre toujours dans un Try  et FindClose dans le Finally vus que FindClose libere la memoire alloué par FinFirst ET FindNext ... et en cas d'erreur (on ne sait jamais) FindClose serat toujours executé.

procedure FindClose(var F: TSearchRec);
begin
{$IFDEF MSWINDOWS}
  if F.FindHandle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(F.FindHandle);
    F.FindHandle := INVALID_HANDLE_VALUE;
  end;
{$ENDIF}
{$IFDEF LINUX}
  if F.FindHandle <> nil then
  begin
    closedir(F.FindHandle);
    F.FindHandle := nil;
  end;
{$ENDIF}
end;

meme si FindFirst et FindNext ne sont pas executé FindClose ne provoque pas d'erreur (<> INVALID_HANDLE_VALUE)

...
  
procedure Find(FilePath : string; List : TStrings);
var Rec : TSearchRec;
    TLS : TStringList;
begin
  try
    TLS := TStringList.Create;
    if FindFirst(FilePath,faAnyfile,Rec) = 0 then begin
       repeat
         TLS.Add(Rec.Name); // dans un repeat until cette ligne serait executée!!!
       until FindNext(Rec) <> 0;
    end;
    List.Assign(TLS);
  finally
    FindClose(Rec);
    TLS.Free;
  end;
end;




tu as egalement raison sur les TStringList et tu me permet de corriger une erreur que je fais assé souvent d'ailleur, je t'en remercis.

procedure SetList(List : TStrings);
var TMPLIST : TStringList;
begin
  try
    TMPLIST := TStringList.Create;
    ...
    TMPLIST.Add(...);
    ...
    List.Assign(TMPLIST);
  finally
    TMPLIST.Free;
  end;
end;

procedure AddToList(List : TStrings);
var TMPLIST : TStringList;
begin
  try
    TMPLIST := TStringList.Create;
    ...
    TMPLIST.Add(...);
    ...
    List.AddStrings(TMPLIST);
  finally
    TMPLIST.Free;
  end;
end;

merci d'avoir corriger ce point important.

rappel : l'argument List ne doit pas etre declarer en Var ou Out ou encore Const si on veux pourvoir passé les propriétés de Type TStrings des composants dans les procedures.

Avantage du point que souleve Nono, c'est que si on ecrit tout de meme une fonction, elle permet de liberer la valeur du resultat pour passer un retour de control booléen ou tout autre retour.

exemple :

function AddToList(List : TStrings) : integer; // renvois ne nombre d'elements ajoutés
var TMPLIST : TStringList;
begin
  result := 0;
  try
    TMPLIST := TStringList.Create;
    ...
    TMPLIST.Add(...);
    ...
    Result := TMPLIST.Count;
    List.AddStrings(TMPLIST);
  finally
    TMPLIST.Free;
  end;
end;

l'objet TMPLIST sert de buffer pour eviter de travailler directement sur un composant TListBox ou TMemo ou autre ... ce qui eviteras les "refresh" intempestif du composant qui vas de par le fait degrader fortement les performances.

voila voila, merci a nono.

Commentaire de Nono40 le 21/04/2006 22:10:22

Merci je sais la différence entre un Whiol et un repeat....

Regarde ma solution de près et tu veras que le code Repeat Until n'est appelé que si le If est vrai. Le traitement ne seront donc bien effectué que sur le premier élément.

Pour ta solution
procedure SetList(List : TStrings);
var TMPLIST : TStringList;
begin
  try
    TMPLIST := TStringList.Create;
    ...
    TMPLIST.Add(...);
    ...
    List.Assign(TMPLIST);
  finally
    TMPLIST.Free;
  end;
end;

La création est inutile ici.
procedure SetList(List : TStrings);
begin
  list.Clear
  List.Add(...);
end;

Pour répondre à un point au dessus aussi, tu dis que le résultat est libéré car c'est une variable locale. C'est FAUX. Seules les chaines et les tableaux dynamiques sont dans ce cas, dans tous les autres c'est à toi de le gérer.

Commentaire de Forman le 29/06/2006 19:44:43

procedure AddToList(List : TStrings);
begin
  List.BeginUpdate;
  try
    List.Add(...);
  finally
    List.EndUpdate;
  end;
end;

"AddToList" a l'avantage d'être un nom explicite. BeginUpdate...EndUpdate permet de ne pas dégrader les performances avec des TStrings associés à des contrôles par exemple.