Discussion :

[aliwassem]

salut les amis

j'ai un programme qui energistre les donnes dans des fichier RECORD comme le code suivante

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;

et mon fichier energistrer avec une extention de sds alors je fais une association de mon fichier a mon programme .....

alors je veux quand je clique sur le fichier ,il ouvert avec mon programme comment je peux le faire?

Merci d'avance

[Graffito]

Voir : http://www.developpez.net/forums/sho...d.php?t=226235