probleme TstringlistRésolu

Question

Bonjour,

j'aimerais modifier une ligne dans un fichier texte :

TStringList1 = class(TStringList)
var
MyFileInfo: TStringList1;

procedure GetFileContent(Filename: string; Result: TStrings);
begin
  Assert(Result <> nil, 'Result is nil');
  Result.LoadFromFile(Filename);
end;       

MyFileInfo := TStringList1.Create;
try
   GetFileContent('C:\...	ext.bat', MyFileInfo);
   Myfileinfo.strings[5]:='nouveau texte de ma ligne';
finally
   MyFileInfo.Free;
 end;         

ben ca ne marche pas  on dirait qu'on peut lire dans le Tstringlist tant qu'on veut, mais je n'arrive pas a y &#233;crire. qqun a une solution ?

Spellbound74 · Accepted Answer

finalement j'ai trouv&#233; une autre m&#233;thode que Strings pour faire un remplacement : insert

pour remplacer la ligne 4 :

MyFileInfo.Delete(4);
Myfileinfo.Insert(4,nouvelleligne);

sisi231 · Answer

D&#233;j&#224;, si tu veux que ton param&#232;tre result de GetFileContent puisse &#234;tre modifiable en &#233;criture il faut le d&#233;clarer en var comme ceci :

procedure GetFileContent
(Filename: string; var
 Result: TStrings);

SISI231

cs_neko · Answer

heu non, il ne fait pas de destruction/instanciation dans sa fonction donc pas besoin du Var.

c'est normal que ton fichier ne change pas

MyFileInfo := TStringList1.Create;                  //Cr&#233;ation
try
   GetFileContent('C:\...	ext.bat', MyFileInfo);  //Chargement du fichier en m&#233;moire
   Myfileinfo.strings[5]:='nouveau texte de ma ligne'; //Modification de la m&#233;moire
   //Manque sauvegarde de la m&#233;moire dans le fichier, un truc genre MyFileInfo.savetofile('C:\...	ext.bat');
finally
   MyFileInfo.Free;
 end;         

bouh

Probleme Tstringlist

3 réponses

Votre réponse

Discussions similaires