PythonGreg
Messages postés68Date d'inscriptionjeudi 3 novembre 2011StatutMembreDernière intervention 6 février 2015
-
7 oct. 2012 à 19:21
PythonGreg
Messages postés68Date d'inscriptionjeudi 3 novembre 2011StatutMembreDerniè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;