IniFiles не читаетца

[ArtGrek]

Unit4
procedure TForm4.sButton1Click(Sender: TObject);
begin
  if (Edit1.Text <> '') and (Edit2.Text <> '') then
  begin
    PathD := Path + '\Duty.ini';         // путь к фаилу                                  
    If not (FileExists(PathD)) then                                
    begin                                                           
      AssignFile(FD,PathD);                                     
      Rewrite(FD);                                              
      CloseFile(FD);
    end;
    Duty := TIniFile.Create(PathD);
    Duty.WriteString( 'ClientList', DateToStr(Form1.MonthCalendar1.Date), Edit1.Text + ' ' + Edit2.Text);
    Duty.Free;
  end;
end;

Unit3
procedure TForm3.Timer3Timer(Sender: TObject);
begin
  Duty := TIniFile.Create(PathD);
  Duty.ReadString('ClientList', DateToStr(Date), Label1.Caption);
  Duty.Free;
end;

INI File
[ClientList]
29.01.2011=City, Street Number
30.01.2011=City, Street Number
27.01.2011=City, Street Number

уже голову сломал, почему в лабел не сохраняеца текст с фаила(((((

[Serge_Bliznykov]

ОПС.
Так Вы же не пишете, а читаете текст:

Duty.ReadString('ClientList', DateToStr(Date), Label1.Caption);

Кстати, если не поможет, тогда попробуйте посмотреть, чему равно значение переменной PathD

Unit3

procedure TForm3.Timer3Timer(Sender: TObject);
begin
  ShowMessage(PathD);
  Duty := TIniFile.Create(PathD);

только на время отладки ОБЯЗАТЕЛЬНО сделайте значение таймера Timer3 побольше
(ну, хотя бы 10 секунд: timer3.interval := 10000; )

[asmodey1]

Сообщение от ArtGrek

уже голову сломал, почему в лабел не сохраняеца текст с фаила(((((

Голову ломать не надо, надо просто заглянуть в хэлп по поводу ReadString и прочих Read-ов и уяснить, что третья позиция (на которой написано "Label1.Caption") не есть адресат, куда помещается результат чтения... А всего-навсего значение по умолчанию

[Volt]

Label1.Caption:= Duty.ReadString('ClientList', DateToStr(Date), '');

[ArtGrek]

всем огромное спасибо!

Голову ломать не надо, надо просто заглянуть в хэлп по поводу ReadString и прочих Read-ов и уяснить, что третья позиция (на которой написано "Label1.Caption") не есть адресат, куда помещается результат чтения... А всего-навсего значение по умолчанию

так тоже было но из-за ошибки с путем, начал комбинироват с кодом, в обшем за все 3 ответа спасибо, помогли