1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| procedure TreeFromIni(TreeView2: TTreeView; INI: TIniFile; Section: string;Expand: Boolean);
var
n: Integer;
MS: TMemoryStream;
tTv: TStringList;
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(Section, tTv[n], ''), '#', #9,[rfReplaceAll]);
tTv.SaveToStream(MS);
MS.Position := 0;
TreeView2.LoadFromStream(MS);
if (Expand = True) and (TreeView2.Items.Count > 0) then TreeView2.Items[0].Expand(True);
finally
tTv.Free;
MS.Free;
end;
end; |
Partager