Discussion :

[morganox]

salut tout le monde, je voudrai savoir comment sauvegarder un TEdit sur le PC et l'ouvrir quand je le veux ...
pour le moment j'ai mit ca mais ca a pas l'air de marcher ...

Code :

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

1
2
3
4
5
6
7
 
        if SaveDialog1.Execute then
          Editmeilleurscore1.Text.SaveToFile(SaveDialog1.FileName);
        if SaveDialog1.Execute then
          Editmeilleurnom1.Text.SaveToFile(SaveDialog1.FileName);
        Editmeilleurscore1.Text.SaveToFile('meilleurscore1');
        Editmeilleurnom1.Text.SaveToFile('meilleurnom1');

j'ai mit ca pour sauvegarder 2 TEdit et ca a pas l'air de marcher, et pour les ouvrirs j'ai mit ca :

Code :

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

1
2
3
 
        Editmeilleurscore1.Text.LoadFromFile('meilleurscore1');
        Editmeilleurnom1.Text.LoadFromFile('meilleurnom1');

pourriez vous me dire comment resoudre le probleme svp ...
merci a vous tous

[anapurna]

salut

avec un initfile

tu met le loaddatas dans le formcreate
et le savedatas dans un action bien definie
tels que apres la saissie du vainqueur par exemple

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
 
const 
   CSTR_INIFILE_SECTION = 'MEILLEUR';
 
procedure TMyFrm.SauveGardeData(STCategorie,StValue : String);
begin
  Data.IniFile.WriteString(CSTR_INIFILE_SECTION,STCategorie , StValue);
end;
 
procedure TMyFrm.SaveDatas;
begin
  SauveGardeData('SCORE',Editmeilleurscore1.Text);
  SauveGardeData('NOM',Editmeilleurnom1.Text);
end;
 
procedure TMyFrm.LoadDatas;
var
 st : String;
begin
  st := Data.IniFile.ReadString(CSTR_INIFILE_SECTION,'SCORE','0');
  Editmeilleurscore1.Text :=  st; 
  st := Data.IniFile.ReadString(CSTR_INIFILE_SECTION,'NOM','');
  Editmeilleurnom1.Text :=  st; 
end;

[morganox]

tu pourrais expliquer un peu plus stp j'ai pas tout suivi

[ero-sennin]

Salut,

Ce que veut dire Anapurna, c'est utiliser un fichier ini ce qui est plus adéquat à ce que tu souhaite faire ...

Dans les uses, tu mets IniFiles, puis, avec ce code, tout doit fonctionner :

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
procedure TForm1.BtnSauvegarderClick(Sender: TObject);
var
FichierIni:TIniFile;
begin
    // ParamStr(0) correspond au chemin de l'application
    FichierIni:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'score.ini');
    FichierIni.WriteString('MEILLEUR JOUEUR','Score',Editmeilleurscore1.Text);
    FichierIni.WriteString('MEILLEUR JOUEUR','Nom',Editmeilleurnom1.Text);
end;
 
procedure TForm1.BtnChargerClick(Sender: TObject);
var
FichierIni:TIniFile;
begin
    FichierIni:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'score.ini');
    Editmeilleurscore1.Text:=FichierIni.ReadString('MEILLEUR JOUEUR','Score','');
    Editmeilleurnom1.Text:=FichierIni.ReadString('MEILLEUR JOUEUR','Nom','');
end;

Si tu as des questions ... n'hésistes pas.

A+ et bonne continuation

[morganox]

par contre moi j'ai 5 meilleurs scores a rentrer donc 5 edits differents pour les noms et 5 autres pour les scores
ca marchera quand meme ?
si oui comment ?

[ero-sennin]

Salut,

Tu peux très bien faire celà avec 5 Edits! Ce n'est quasi qu'un simple copier coller de mon code de départ ...

On peut faire ceci par Exemple :

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
procedure TForm1.BtnSauvegarderClick(Sender: TObject);
var
FichierIni:TIniFile;
begin
    // ParamStr(0) correspond au chemin de l'application
    FichierIni:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'score.ini');
    FichierIni.WriteString('CLASSEMENT MEILLEURS JOUEURS','Nom1',Editmeilleurnom1.Text);
    FichierIni.WriteString('CLASSEMENT MEILLEURS JOUEURS','Score1',Editmeilleurscore1.Text);
    FichierIni.WriteString('CLASSEMENT MEILLEURS JOUEURS','Nom2',Editmeilleurnom2.Text);
    FichierIni.WriteString('CLASSEMENT MEILLEURS JOUEURS','Score2',Editmeilleurscore2.Text);
    FichierIni.WriteString('CLASSEMENT MEILLEURS JOUEURS','Nom3',Editmeilleurnom3.Text);
    FichierIni.WriteString('CLASSEMENT MEILLEURS JOUEURS','Score3',Editmeilleurscore3.Text);
    FichierIni.WriteString('CLASSEMENT MEILLEURS JOUEURS','Nom4',Editmeilleurnom4.Text);
    FichierIni.WriteString('CLASSEMENT MEILLEURS JOUEURS','Score4',Editmeilleurscore4.Text);
    FichierIni.WriteString('CLASSEMENT MEILLEURS JOUEURS','Nom5',Editmeilleurnom5.Text);
    FichierIni.WriteString('CLASSEMENT MEILLEURS JOUEURS','Score5',Editmeilleurscore5.Text);
end;
 
procedure TForm1.BtnChargerClick(Sender: TObject);
var
FichierIni:TIniFile;
begin
    FichierIni:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'score.ini');
    Editmeilleurnom1.Text:=FichierIni.ReadString('CLASSEMENT MEILLEURS JOUEURS','Nom1','');
    Editmeilleurscore1.Text:=FichierIni.ReadString('CLASSEMENT MEILLEURS JOUEURS','Score1','');
    Editmeilleurnom2.Text:=FichierIni.ReadString('CLASSEMENT MEILLEURS JOUEURS','Nom2','');
    Editmeilleurscore2.Text:=FichierIni.ReadString('CLASSEMENT MEILLEURS JOUEURS','Score2','');
    Editmeilleurnom3.Text:=FichierIni.ReadString('CLASSEMENT MEILLEURS JOUEURS','Nom3','');
    Editmeilleurscore3.Text:=FichierIni.ReadString('CLASSEMENT MEILLEURS JOUEURS','Score3','');
    Editmeilleurnom4.Text:=FichierIni.ReadString('CLASSEMENT MEILLEURS JOUEURS','Nom4','');
    Editmeilleurscore4.Text:=FichierIni.ReadString('CLASSEMENT MEILLEURS JOUEURS','Score4','');
    Editmeilleurnom5.Text:=FichierIni.ReadString('CLASSEMENT MEILLEURS JOUEURS','Nom5','');
    Editmeilleurscore5.Text:=FichierIni.ReadString('CLASSEMENT MEILLEURS JOUEURS','Score5','');
end;

Celà fonctionne
A+

EDIT :

Encore une autre variante :

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
procedure TForm1.BtnSauvegarderClick(Sender: TObject);
var
Fichier:TextFile;
begin
      AssignFile(Fichier,ExtractFilePath(ParamStr(0))+'score.ini');
      Rewrite(Fichier);
      Writeln(Fichier,Editmeilleurnom1.Text+'='+Editmeilleurscore1.Text);
      Writeln(Fichier,Editmeilleurnom2.Text+'='+Editmeilleurscore2.Text);
      Writeln(Fichier,Editmeilleurnom3.Text+'='+Editmeilleurscore3.Text);
      Writeln(Fichier,Editmeilleurnom4.Text+'='+Editmeilleurscore4.Text);
      Writeln(Fichier,Editmeilleurnom5.Text+'='+Editmeilleurscore5.Text);
      CloseFile(Fichier);
end;
 
procedure TForm1.BtnChargerClick(Sender: TObject);
var
Fichier:TextFile;
ligne:string;
index:integer;
begin
    if FileExists(ExtractFilePath(ParamStr(0))+'score.ini') then
    begin
      AssignFile(Fichier,ExtractFilePath(ParamStr(0))+'score.ini');
      Reset(Fichier);
      Readln(Fichier,ligne);
      index:=pos('=',ligne);
      Editmeilleurnom1.Text:=LeftStr(ligne,index-1);
      Editmeilleurscore1.Text:=RightStr(ligne,Length(ligne)-index);
      Readln(Fichier,ligne);
      index:=pos('=',ligne);
      Editmeilleurnom2.Text:=LeftStr(ligne,index-1);
      Editmeilleurscore2.Text:=RightStr(ligne,Length(ligne)-index);
      Readln(Fichier,ligne);
      index:=pos('=',ligne);
      Editmeilleurnom3.Text:=LeftStr(ligne,index-1);
      Editmeilleurscore3.Text:=RightStr(ligne,Length(ligne)-index);
      Readln(Fichier,ligne);
      index:=pos('=',ligne);
      Editmeilleurnom4.Text:=LeftStr(ligne,index-1);
      Editmeilleurscore4.Text:=RightStr(ligne,Length(ligne)-index);
      Readln(Fichier,ligne);
      index:=pos('=',ligne);
      Editmeilleurnom5.Text:=LeftStr(ligne,index-1);
      Editmeilleurscore5.Text:=RightStr(ligne,Length(ligne)-index);
      CloseFile(Fichier);
    end;
end;

Certes l'écriture est un peu lourde, mais je n'ai pas envie de t'effrayer dès le début