procedure TForm1.Button1Click(Sender: TObject);
var
count,i:integer;
str:Tstringlist;
inifile:Tinifile;
begin
str:=Tstringlist.Create ;
inifile:=Tinifile.Create('c:\my.ini') ;
count:=inifile.ReadInteger('ff','ff',0);
for i:=1 to count do
str.Add(inifile.ReadString('tt','t'+IntToStr(i),''));
//for i:=0 to str.Count-1 do memo1.Lines.add(str[i]);
inifile.free;
str.free;
end;
var
count:integer;
aa:array[100] of string;
count:=myinifile.readstring('ff','ff',3)
for i:=0 to count-1 do
begin
aa[i]:='t'+IntToStr(i+1)
end;
for low(aa) to high(aa) do
myinifile.readstring('tt',a[i],3)