Discussion :

[moldock]

OK.

Code :

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

procedure TfrmTest.StringsToINI(aStrings: TStrings; aINIFile: String);

est une methode de ma classe TfrmTest.
Il prend en paramètre une variable de type TStrings et un autre de type String.(En sachant que les items/lines d'un memo est de type TStrings).
Mais bon. Tu voulais un exemple concret donc je vais te macher le travail :
Préalable :
- On a2 Edits (edVal1 et edVal2) et 1 memo (mmVal3) sur la fiche.
- On va aussi utiliser un TSaveDialog (dlgSave) pour le nom du fichier

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
 
//Enregistrement dans un fichier INI
Procedure EnregistrerValeursDansINI;
var
    i : Integer;
begin
    if dlgSave.Execute then
    begin
        With TIniFile.Create(dlgSave.Filename) do
        try
            //Traitement des 2 Edits edVal1 et edVal2.
            WriteString('EDIT','edVal1',edVal1.Text);
            WriteString('EDIT','edVal2',edVal2.Text);            
            //Traitement des lignes du Memo.
            // 1° Ecriture du nombre de ligne.
            WriteInteger('MEMO','Count',mmVal3.Lines.Count);
            // 2° Parcours des lignes du Memo mmVal3
            for i := 0 to mmVal3.Lines.Count -1 do
            begin
                // 3° Ecriture de chaque ligne du Memo.
                WriteString('MEMO',Format('Line%d',[i+1]),mmVal3.Lines[i]);
            end;
        finally
            Free;
        end;
    end;
end;

Je pense que c'est assez clair maintenant.

Courage.

Desoler d'avoir etait si long a comprendre merci c'est sympat .
Je vais bien relire toute les reponces
Merci ca marche supers j'avais des problemes mes avec cette exemple j'ai tres bien compris
Maintenant si je veut les lires est que je peu utilise la meme syntaxe ?

[Andry]

Bien sur, la lecture se fait avec Readxxxx.
Il faut en particulier faire attention au moment de la recupération pour le mémo, à lire d'abord la valeur de Count. Et ensuite utiliser cette valeur pour la boucle.
Sinon le squellette est pareil.

[moldock]

Bien sur, la lecture se fait avec Readxxxx.
Il faut en particulier faire attention au moment de la recupération pour le mémo, à lire d'abord la valeur de Count. Et ensuite utiliser cette valeur pour la boucle.
Sinon le squellette est pareil.

J'ai encore un petit souci concernant la récuperation de mes édit et de mon memo1 j'ai bien reussit a lire mes édit1 et édit 2 mais je n'arrive pas a récuperer mon memo1
je pense avoir fait une erreur dans ma programmation

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
 
Procedure  Tform1.ouvrir1click(sebder: Tobject);
Var
   I : Integer;
Begin
   if opendialog1.execute then
   begin
         With Tinifile.create(opendiaolog1.filename) do
         try
              edit1.text:=Readstring('edit','edit1.text',edit1.text);
              edit2.text:=Readstring('edit',edit2.text',edit2.text);
              ReadInteger('memo','count',memo1.lines.count);
              FOR I:=0 to memo1.lines.count -1 do
              begin 
              Readstring('MEMO',Format('Line%d,[i+1]),memo1.lines[i];
    end;
         finally
             free;
end;
end;
end;
end.

Je n'arrive pas a voir ou ca coince
merci encore

[Cl@udius]

Salut

Il faut lire la valeur de Count, puis utiliser cette valeur pour lire chacune des lignes du mémo.

Ce qui donne:

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
procedure TForm1.Button1Click(Sender: TObject);
var
  I, Count: Integer;
begin
  if OpenDialog1.Execute then
  begin
    with TIniFile.Create(OpenDialog1.FileName) do
    try
      Edit1.Text := Readstring('EDIT', 'Edit1', '');
      Edit2.Text := Readstring('EDIT', 'Edit2', '');
      Count := ReadInteger('MEMO', 'Count', 0);
      for I := 0 to Count - 1 do
      begin
        Memo1.Lines.Add(ReadString('MEMO', Format('Line%d', [I + 1]), ''));
      end;
    finally
      Free;
    end;
  end;
end;

@+ Claudius

[Andry]

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
 
Procedure  Tform1.ouvrir1click(sebder: Tobject);
Var
   I : Integer;
   LineCount : Integer; // A rajouter pour recuperer le nb de lignes
Begin
    if opendialog1.execute then
    begin
        With Tinifile.create(opendiaolog1.filename) do
        try
            //Syntaxe Function ReadXXXXX(Section,Clé,Valeur par défaut): Type XXXXX
            edit1.text := Readstring('edit','edit1.text','');//Metons rien si Section/clé introuvable
            edit2.text := Readstring('edit','edit2.text','');//Metons rien si Section/clé introuvable
            //On va mettre dans LineCount le nombre de lignes qu'on a précédemment enregistrer.
            LineCount  := ReadInteger('memo','count',0);//Metons 0 si Section/clé introuvable
            memo1.Lines.Clear;//Effaçon le contenue de notre memo.
            //Si LineCount >=1, on a LineCounte -1  lignes a recuperer
            if LineCount >= 1 then
            begin
                FOR I:=0 to LineCount -1 do
                    memo1.Lines.Add(Readstring('MEMO',Format('Line%d,[i+1]),''));
            end;
        finally
            free;
        end;
    end;
end;

Voilà. C'est corrigé.
Je suis grillé par [FONT=&quot]Cl@udius [/FONT]
A mon avis, tu n'as pas beaucoup chercher.
A+

[moldock]

Voilà. C'est corrigé.
Je suis grillé par [FONT=&quot]Cl@udius [/FONT]
A mon avis, tu n'as pas beaucoup chercher.
A+

Je vais essayer ce soir
Merci encore je vais plancher dessus pour bien comprendre le processus
merci