[dis12]

приветствую всех.. .собственно, такая проблема, нужно из файла *.ini достать нужную информацию, некоторые моменты не получаются, сейчас поясню какие.

содержимое файла *.ini выглядет таким образом:

[Понедельник]
текст
[Вторник]
текст2
...
[Воскресенье]

текст7

на форме в приложении раскиданы Memo1 (Отвечает за сегодня) и Memo2(отвечает за завтра). Нужно, чтобы в Memo1 из файла *.ini читались данные из секции, соответствующей сегодняшнему дню, а в Memo2, соответственно, завтрашнему. Делаю так:

Код:

uses IniFiles, DateUtils;
procedure TForm1.FormCreate(Sender: TObject);
  var
    ini: TIniFile;
    n: integer;
    Str: TStringList;
    tod,tomm: String;
  begin
         ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'stable.lst');
         tod := FormatDateTime('dddd',Date);
         tomm := FormatDateTime('dddd',Tomorrow);
         Memo1.Clear;
         Memo2.Clear;
         Str := TStringList.Create;
         ini.ReadSectionValues(tod,str);
         for n:=0 to str.Count do
         Memo1.Lines.Add(ini.ReadString(tod,inttostr(n),''));
         ini.ReadSectionValues(tomm,str);
         for n:=0 to str.Count do
         Memo2.Lines.Add(ini.ReadString(tomm,inttostr(n),''));
         str.Free;
         ini.Free;
end;

в моем случае отображается только данные из секции, соответствующей сегодняшнему дню (для Memo1), а в Memo2 ничего не отображается..

Подскажите, пожалуйста, что подправить.. буду очень признателен