MEDIATEK

Commentaire de iceman2001 le 17/08/2004 10:13:38

Petite erreur dans l'unité Ufonctions.

Remplacez la fonctions "existedeja" par celle-ci

Function existe_deja : Boolean;
var
  StrListe: TStringList;
  i,j: integer;
  infos, Titre, Support : string;
begin
  StrListe:= TStringList.Create;
  StrListe.LoadFromFile(Fichier_Liste);
  For i:=0 to StrListe.Count -1 do
  begin
    Infos := StrListe[i];
    Titre := trim(copy ( infos, pos ('[TITRE]', infos)+7, (pos('[GENRE]', infos) - pos ('[TITRE]', infos)+8) -15
     )) ;
    Support := trim(copy ( infos, pos ('[SUPPORT]', infos)+9, (pos('[TITRE]', infos) - pos ('[SUPPORT]', infos)+9)-18 )) ;
    if (Support = Usaisie.Form2.Combo_support.Text ) and ( Titre = Usaisie.Form2.Ed_Titre.Text ) then
      begin
        Result := true
      end;
   end;
FreeandNil(StrListe);
end;

Elle gerait très mal les doublons. ca devrait etre corrigé maintenant.