ОТСЧЕТ ВРЕМЕНИ

[crit]

ну помоему вы тут перегнули) "Поэкспериментируй с функциями DecodeTime, EncodeTime". зачем??
Сделал проще:

procedure TForm1.FormCreate(Sender: TObject);
var
  S: TStringList;

begin
S:=TStringlist.Create;
  S.LoadFromFile('c:\time.txt');
  Edit1.Text:=S.Strings[0];

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Time := StrToTime(Edit1.Text);
  Time := Time - 0.00001;

  Edit1.Text := TimeToStr(Time);

end;

procedure TForm1.Button1Click(Sender: TObject);
var
f: textfile;
begin
  Assignfile(f, 'c:\time.txt');
  Rewrite(f);
  writeln(f, TimeToStr(DateTimePicker1.Time));
  CloseFile(f);

Терь немного другая проблема.. у меня в проекте файл сохраняется чрез opendialog в папку.. забыл как это сделать в коде?? подскажите плиз ,что то типа вроде Assignfile(f, opendialog1); ????

[Пепел Феникса]

if OpenDialog1.Execute then begin
                                        AssignFile(f,OpenDialog1.FileName)
                                        Rewrite(f);
                                        //и тд
                                       end;

[crit]

а считывание в OnCreate??

[crit]

тоесть там opendialog

[crit]

Сообщение от Пепел Феникса

if OpenDialog1.Execute then begin
                                        AssignFile(f,OpenDialog1.FileName)
                                        Rewrite(f);
                                        //и тд
                                       end;

и тут вернее нужно Savedialog

[crit]

и вот так правильно чтение?

var
  S: TStringList;

begin
if OpenDialog1.Execute then begin
S:=TStringlist.Create;
  S.LoadFromFile(OpenDialog1.FileName);
  Edit1.Text:=S.Strings[0];

[Пепел Феникса]

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

и тут вернее нужно Savedialog

так просто замените OpenDialog на SaveDialog...

ну поидее правильно
но не забывайте освобождать память от динамических классов:

var S: TStringList;
begin
 if OpenDialog1.Execute then 
  begin
   S:=TStringlist.Create;
   S.LoadFromFile(OpenDialog1.FileName);
   Edit1.Text:=S.Strings[0];
  end;
 S.Free;
end;

[crit]

ха! вот и повыползли ошибки))) если я так делаю вылазит ошибка Edit1 is not valid time. Прошелся брейкопинтом ,он указал на эту строку куда сваливается : Time := StrToTime(Edit1.Text) в таймере. В чем проблема??

[Пепел Феникса]

до выполнения таймера вам нужно в Едит записать дату нужную

[crit]

Сообщение от Пепел Феникса

до выполнения таймера вам нужно в Едит записать дату нужную

эмм не понял,какую дату НУЖНУЮ,поясните плиз