Discussion :

[chtiyoyo]

Bonjour a tous, il y a un petit truc qui me pose probleme, je pense que c'est bateau mais bon....
A l'ouverture de mon programme, mes edits se precharge de valeurs que j'ai fixee,on peut ensuite les modifie. La chose que j'aimerais faire, c'est non pas precharger des valeurs fixees, mais les valeurs ecrites dans le Tedit lors de la derniere utilisation. Je pense les enregistres dans un fichier texte mais comment dire au programme, edit1=1ere valeur, edit2=snde valeur.....

merci d'avance.

[Pascal Jankowski]

La façon la plus efficace pour ce genre de problème reste l'utilisation d'un fichier ini.

Pour plus de renseignement je te revoie vers la FAQ "fichiers ini"

[petitcoucou31]

salut,

La lecture de ton fichier texte sera exactement dans le même ordre que la sauvegarde , a toi de t'assurer que la routine de sauvegarde et de lecture sont identiques.

Si le premier edit que tu sauves est edit1, le 1er champ du fichier que tu liras sera la valeur de edit1 et ainsi de suite.

[chtiyoyo]

Comment charge-t-on la valeur dans l'edit? Car j'arrive a enregistrer mais valeurs dans un fichier text, mais pour les recharger dans un edit....

il aime pas trop le loadfromfile...lol

[zemeilleurofgreg]

voir variable de type "TEXTFILE"

parcours de fichier via une boucle et le tour zst joué !!

il y a peut-être même moyen d'accéder à une ligne x directement sans passer par une boucle !!

[chtiyoyo]

de cette maniere, les donnees ne vont pas dans un fichier,si? car vu que je quitte mon programme, il faut absolument qu'elle soit enregistrer dans un fichier pour que je puisse les recuperer.

[zemeilleurofgreg]

de quelle manière parle-tu ?

Code :

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

edit1.text:=valeur récupérée du fichier texte

[chtiyoyo]

j'en deduit que je doit pas comprendre le textfile, lol, l'aide de delphi me parle pas des masses... si quelqu'un peut m'eclairer.
Merci d'avance.

[zemeilleurofgreg]

petit exemple d'utilisation de variable de type "TEXTFILE" :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfrmMain.FormCreate(Sender: TObject);
var
fFichier:Textfile;
strList :TStringList;
begin
 
  strList:=TStringList.Create;
  strList.LoadFromFile(ExtractFilePath(Application.ExeName)+'\DATA\DRP.txt');
  AssignFile(fFichier,PChar(strList));

expications :

1° déclaration des variables fFichier (TEXTFILE et strList (TStringList)
2 ° Chargement du contenu du fichier texte dans une variable de type TStringList.

Ensuite tu utilises strList pour accéder aux valeurs s'y trouvant.
du genre :

Code :

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

edit1.text:=strList[0]

et pour sauvegarder un fichier :

Code :

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

strlist.SaveToFile(chemin du fichier);

[Andry]

Tu complique trop les choses.
Il ya déjà quelqu'un qui a suggéré d'utiliser les fichiers INI. Alors je te montre comment je ferais à ta place.

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
//Sauvegarde des valeurs des edits sur la fiche frmParams
procedure TfrmParams.SaveAllEditsValue(FichierIni : String);
var i : Integer;
begin
  with TIniFile.Create(FichierIni ) do
  try
    //Parcours des composant sur la fiche et traitement des TEdit
    for i:= 0 to frmParams.ComponentCount -1 do
    begin
      if (frmParams.Components[i] is TEdit) then
        WriteString('EDIT',frmParams.Components[i].Name,(frmParams.Components[i] as TEdit).Text);
    end;
  finally
    free;
  end;
end;

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
//Recuperation de la valeur des Edits via le fichier Ini
procedure TfrmParams.LoadAllEditsValue(FichierIni : String);
var i : Integer;
begin
  with TIniFile.Create(FichierIni ) do
  try
    //Parcours des composant sur la fiche et traitement des TEdit
    for i:= 0 to frmParams.ComponentCount -1 do
    begin
      if (frmParams.Components[i] is TEdit) then
        (frmParams.Components[i] as TEdit).Text := ReadString('EDIT',frmParams.Components[i].Name,'');
    end;
  finally
    free;
  end;
end;

Tu vois, c'est pas si compliqué.
A toi de le modifier suivant tes besoin