использование процедур

[street-walker]

у меня есть исходники кода,но не пойму как их применить

procedure TreeToIni(Tree: TTreeView; INI: TIniFile; Section: string);
var
n: Integer;
MS: TMemoryStream;
tTv: TStringList;
Msg: string;
begin
tTv := TStringList.Create;
MS := TMemoryStream.Create;
try
Tree.SaveToStream(MS);
MS.Position := 0;
tTv.LoadFromStream(MS);
INI.EraseSection(Section);
for n := 0 to tTv.Count - 1 do
INI.WriteString(Section, 'Node' + IntToStr(n), StringReplace(tTv[n], #9,
'#', [rfReplaceAll]));
finally
tTv.Free;
MS.Free;
end;
end;

procedure TreeFromIni(Tree: TTreeView; INI: TIniFile; Section: string;
Expand: Boolean);
var
n: Integer;
MS: TMemoryStream;
tTv: TStringList;
Msg: string;
begin
tTv := TStringList.Create;
MS := TMemoryStream.Create;
try
INI.ReadSection(Section, tTv);
for n := 0 to tTv.Count - 1 do
tTv[n] := StringReplace(INI.ReadString(Sectio n, tTv[n], ''), '#', #9,
[rfReplaceAll]);
tTv.SaveToStream(MS);
MS.Position := 0;
Tree.LoadFromStream(MS);
if (Expand = True) and (Tree.Items.Count > 0) then
Tree.Items[0].Expand(True);
finally
tTv.Free;
MS.Free;
end;
end;

куда это писать и как обращаться к этим процедурам?

[RAZOR3]

Вызываешь процедуру например по нажатию кнопки:
а процедуры просто помести в код после implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
TreeToIni(TreeView1, 'D:\inifile.ini', '1');
end;

[Lietto]

А что делают параметры Section и Expand.
Ты вот поставил там '1' - "TreeToIni(TreeView1, 'D:\inifile.ini', '1');"

у меня выкидывает ошибку при такой записи
[DCC Error] Unit1.pas(107): E2010 Incompatible types: 'TIniFile' and 'string'

[ZaRDaK]

Вторым параметром надо передавать обьект TIniFile.

var Ini:TIniFile;
...
begin
Ini := TIniFile.Create('D:\inifile.ini');
TreeToIni(TreeView1, Ini, '1');
Ini.Destroy;

Писал из головы, могуть быть ошибки.

[Lietto]

хыхы...ну да, обьект же нужно сначала создать, как то не подумал...