salut les amis
j'ai un programme qui energistre les donnes dans des fichier RECORD comme le code suivante
et mon fichier energistrer avec une extention de sds alors je fais une association de mon fichier a mon programme .....
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65 unit Unit1; interface uses . . type TFichier =record data :array[0..100] of String[100]; counter:integer; end; TForm1 = class(TForm) . . var Fichier: TFichier; FichierAdresse:File of TFichier; . . procedure TForm1.SaveClick(Sender: TObject); begin if SaveDialog1.Execute = false then exit; AssignFile(FichierAdresse,SaveDialog1.FileName +'.sds'); ReWrite(FichierAdresse); begin for I := ComponentCount - 1 downto 0 do begin if Components[I] is TVertical Then begin Fichier.data[H]:=TVertical(FindComponent(Components[i].Name)).Caption; H:= H+1; end else end; Write(fichierAdresse,Fichier); end; CloseFile(FichierAdresse); end; . . procedure TForm1.OpenClick(Sender: TObject); begin if OpenDialog1.Execute =false then Exit; AssignFile(FichierAdresse,ExtractFileName(OpenDialog1.FileName)); Reset(FichierAdresse); While not EOF(FichierAdresse) do begin read(FichierAdresse,Fichier); for I := ComponentCount - 1 downto 0 do begin if Components[I] is TVertical Then begin TVertical(FindComponent(Components[i].Name)).Caption := Fichier.data[H]; H:= H+1; end else end; end; CloseFile(FichierAdresse); end;
alors je veux quand je clique sur le fichier ,il ouvert avec mon programme comment je peux le faire?
Merci d'avance
Partager