Erreur de procedure dans un dll

Résolu
PythonGreg
Messages postés
68
Date d'inscription
jeudi 3 novembre 2011
Statut
Membre
Dernière intervention
6 février 2015
- 7 oct. 2012 à 19:21
PythonGreg
Messages postés
68
Date d'inscription
jeudi 3 novembre 2011
Statut
Membre
Dernière intervention
6 février 2015
- 7 oct. 2012 à 19:43
Bonjour,
j'ai recontré un petit probléme avec une procedure mi dans un fichier dll.
Voici la procedure aucune erreur sauf a la fin de son éxécution un méssage d'érreur [Error d'écriture ...]
Donc j'ai testé de métre la procedure directement dans l'unit du programme et la tout marche bien sans méssage d'érreur.
Ma question : Pourquoi cella marche dans l'unit est pas dans la dll ?

procedure DeleteFileList (ListScan : TListbox; Progress : TProgressBar); StdCall;
var
 I : Integer;
 begin
   Progress.Max := ListScan.Items.Count -1;
   repeat
     for I := 0 to ListScan.Items.Count - 1 do
       if ListScan.Items.Strings[I] <> '' then
        begin
          Progress.Position := Progress.Position +1;
          DeleteFile(pChar(ListScan.Items.Strings[I]));
        end;
     Inc(I);
   until I = ListScan.Items.Count +1;
 end;


Merci de votre réponse.

http://programmationdelphi.info/

1 réponse

PythonGreg
Messages postés
68
Date d'inscription
jeudi 3 novembre 2011
Statut
Membre
Dernière intervention
6 février 2015

7 oct. 2012 à 19:43
Try finally mais pourquoi de n'ai pas y pencé aven

http://programmationdelphi.info/
3