J'ai eu ce problème et je l'ai résolu avec cette procedure:


procedure TVAnsiSaveToFile(TV:TTreeView;Const FileName:AnsiString);
var i,Nb09,N:Integer;
S:AnsiString;
Ch09:AnsiChar;...