Discussion :

[lordelite]

Salut juste vous dire que j'ai essayé de faire un programme mais il ne marche pas. Je vois vous envoie la source pour que vous me donniez votre avis. Merci encore pour votre compréhension;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Procedure Delete_Data;
Var i : byte; 
Begin 
for i:= n to Totalrecords - 1 do Begin 
seek(my_file,i); 
read(My_file,Rec); 
seek(My_file,i-1); 
write(My_file,Rec); 
End; 
Seek(My_file,totalrecords -1); 
Truncate(My_file); 
Dec(totalrecords); 
End;

[droggo]

Hai,

Tu es sûr d'avoir fait quelque chose ?

- C'est exactement le code donné dans un des liens que t'a indiqués Alcatîz, à la lettre près, y compris les différences de majuscules/minuscules pour un même mot.

- Ce code marche, et tu affirmes que non.

Il faut arrêter de nous prendre pour des andouilles.

[lordelite]

salut à vous tous!je voudrais vous remercier encore pour votre aide.le code donné marche.en fait ça ne marchait pas parce que j'avais fait une petite erreur auparavant.ok merci encore et puis droggo tu n'as pas besoin de te facher si tant.a plus.