Bonjour à tous (Ô Grands Manitous Delphinesques )
Etant quelqu'un de tétu et chevronné je persiste dans mes fichiers typés pour gerer mes enregistrements

Par contre un tout piti probleme : comment modifier un enregistrement ?


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Procedure MajClient;
var
  Client : TClient;
begin
  AssignFile(fic_client, 'Fic_Client.dat');
  if fileexists ('fic_client.dat') then
  begin
    reset (fic_client);
    seek(fic_client,Client_Index);
  //  write(fic_Client);
  end
  else
  begin
  rewrite (fic_client);
  end;
  Client.Code := F_EcrPr.E_Cli_1.Text;
  Client.Nom := F_EcrPr.E_Cli_2.text;
  Client.Adresse1 := F_EcrPr.E_Cli_3.text;
  Client.adresse2 := F_EcrPr.E_Cli_4.text;
  Client.CP := F_EcrPr.E_Cli_5.text;
  Client.Ville := F_EcrPr.E_Cli_51.text;
  Client.Tel1 := F_EcrPr.E_Cli_6.text;
  Client.tel2 := F_EcrPr.E_Cli_7.text;
  Client.fax := F_EcrPr.E_Cli_52.text;
  Client.portable := F_EcrPr.E_Cli_53.Text;
  Client.mail := F_EcrPr.E_Cli_8.Text;
  Client.soc := F_EcrPr.E_Cli_9.Text;
  Client.Compta := F_EcrPr.E_Cli_54.Text;
  Client.APE := F_EcrPr.E_Cli_10.Text;
  Client.TVA := F_EcrPr.E_Cli_55.Text;
  Client.Activite := F_EcrPr.E_Cli_11.Text;
  Client.Remarque1 := F_EcrPr.E_Cli_12.Text;
  Client.Remarque2 := F_EcrPr.E_Cli_13.Text;
  Client.Remarque3 := F_EcrPr.E_Cli_14.Text;
  Client.Reglement := F_EcrPr.E_Cli_15.Text;
  Client.RIB := F_EcrPr.E_Cli_16.Text;
  Client.Banque := F_EcrPr.E_Cli_17.Text;
  Write(fic_Client, Client);
  CloseFile(fic_Client);
end;
Et là l'enregistrement s'insere à la bonne position mais décale la suite donc je me retrouve avec en position n mon enregistrement modifié et en n+1 l'enregistrement original - j'aurai aimé que l'enregistrement modifié ecrase l'original (je sais je sais c'est le principe de la mise à jour )..

Merci à vous tous pour vos réponses et au temps que vous avez deja consacré à m'aider.... (je vous citerai comme co-auteurs si mon projet se finalise un jour ... )