Enregistrer le nouveau ListItem.Caption dans ini

**ddubois** · 23/02/2011, 09h29

Je modifie le Caption d'un TListItem en double cliquant sur son titre (propriété ReadOnly a False) puis j'enregistre le nouveau caption dans un fichier ini grace a l'evennement OnEdited qui survient uniquement lorsque le titre de l'item a été modifié.
Hors lorsque j'écrit 'ListItem.Caption' comme valeur de ma clé 'NAME', il enregistre l'ancien caption et non celui modifié !
Comment lui faire prendre en compte le nouveau Caption ?

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
  var S: string);
var
 ListItem : TListItem;
begin
  ListItem := Form1.ListView1.Selected; 
  Form2.EcritINIStr(MaSection,'NAME', ListItem.Caption);//<----ERREUR !
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
18
19
 
procedure TForm2.EcritINIStr(Section:String; Cle:String; Chaine:String);
Var
  FileIni : TIniFile;
begin
 if not FileExists(ExtractFilePath(Application.ExeName)+'\QF.ini') then begin
  MessageDlg('Fichier de configuration [QF.ini] introuvable !)', mtWarning, [mbOk], 0);
  exit;
 end;
 
  FileIni:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'\QF.ini');
  Screen.Cursor := crHourglass;
  Try
    FileIni.WriteString(Section, Cle, Chaine);
  Finally
    Screen.Cursor := crDefault;
    FileIni.Free;
  End;
end;

Merci,

Denis

**Cl@udius** · 23/02/2011, 12h20

Salut

Code :

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

1
2
procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
  var S: string);

C'est la variable S qui contient la nouvelle valeur.

A noter également que Item est l'item modifié donc inutile d'aller le chercher avec Selected.

@+ Claudius.

**ddubois** · 23/02/2011, 15h19

Merci grand moderateur !

**ddubois** · 24/02/2011, 08h48

J'ai parlé trop vite, non resolu
J'ai un problème sur le nom de la section qui n'affiche rien dans ShowMessage :
ShowMessage(Infos^.FSection); // vide

et qui affiche des caracteres aleatoires a la place dans mon fichiers ini

J'ai teste ailleurs et ca fonctionne bien c'est specifique a cet emplacement

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
 
// ************************************************************
//   On a modifié puis valider le titre d'un item (touche Entrée)
// ************************************************************
//Mettre la Propriété 'ReadOnly' du TListView à False;
procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
  var S: string);
var
 ListItem : TListItem;
 Infos    : Pinfos;        //Pointeur sur le 'Record'
begin
  Infos := Pinfos(ListItem.Data);
  Form2.EcritINIStr(Infos^.FSection,'NAME', S); //Nom Section fantaisiste
      ShowMessage(Infos^.FSection); //<-------------ERREUR
end;