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 ?
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 )..
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;
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 ... )
Partager