Здравствуйте.
Помогите пожалуйста, делаю программу и столкнулся с трудностью. Нужно чтобы при нажатии на кнопку Button в одной из ячейке stringgrid появлялось текущее время и дата... Если ктоо знает как это реализовать, то помогите пожалуйста.

С уважением, ДИма.

Код

procedure TForm1.Button1Click(Sender: TObject); begin    StringGrid1.Cells[1,1]:=DateTimeToStr(Now); end;

Заработало. Пасиба большое.
А не подскажешь ещё как можно, и можно ли вообще, сохранять файл с названием сегодняйшней даты? Просто только начал изучать Delphi не все пока знаю.
Спасибо огромное заранее.
С уважением, Дима.

можно. точно так же.

Если файл текстовый то так:

Я не совсем понял, что тебе надо, чтобы имя файла было датой, или в файл записать дату.
Вот два варианта

Код

procedure TForm1.Button1Click(Sender: TObject); var   F: TextFile;   Fn: TFileName; begin   Fn:=DateToStr(Date);   AssignFile(F, Fn);   Rewrite(F);   WriteLn(F,'Строка для записи в файл');   CloseFile(F); end;

Код

procedure TForm1.Button1Click(Sender: TObject); var   F: TextFile;   Fn: TFileName; begin   Fn:='Filename.txt';   AssignFile(F, Fn);   Rewrite(F);   WriteLn(F,DateToStr(Date));   CloseFile(F); end;

А вообще ответы на эти вопросы в любом FAQ'е по Delphi найти можно.

А если например файлу надо прописать путь. К примеру нужно записать файл с названием текущей даты в папку C:\dima\16122005.txt что- то типа того??

Код

... begin       Fn:='C:\dima\16122005.txt';       AssignFile(F, Fn);       Rewrite(F); ...

Не это понятно.... я просто видимо недостаточно точно объяснил. Имелось ввиду сохранять файл в папку C:\dima\ (к паримеру) а дату он каждый день сам вставлял... т.е. не всегда 16122005...т.е. как то через- DateTimeToStr(Now);
И ещё заодно вопросик в книжках смотрел нигде не нашел. А можно сделать чтобы он вычитал время... т.е. к примеру.
т.е. одна ячейка к примеру имеет такое время:
StringGrid1.Cells[1,1]:=DateTimeToStr(Now);
другая
StringGrid1.Cells[1,2]:=DateTimeToStr(Now);
к примеру 16 часов 12 минут 25 секунд- 15 часов 30 минут 40 секунд?
Это реально вообще?
Заранее огромное спасибо.

Цитата(Guest @ 19.11.2005, 09:43)

Не это понятно.... я просто видимо недостаточно точно объяснил. Имелось ввиду сохранять файл в папку C:\dima\ (к паримеру) а дату он каждый день сам вставлял... т.е. не всегда 16122005...т.е. как то через- DateTimeToStr(Now);

Код

begin       Fn:='C:\dima\'+DateTimeToStr(Now)+'.txt';       AssignFile(F, Fn);       Rewrite(F); ...

Цитата(Guest @ 19.11.2005, 09:43)

И ещё заодно вопросик в книжках смотрел нигде не нашел. А можно сделать чтобы он вычитал время... т.е. к примеру. т.е. одна ячейка к примеру имеет такое время: StringGrid1.Cells[1,1]:=DateTimeToStr(Now); другая StringGrid1.Cells[1,2]:=DateTimeToStr(Now); к примеру 16 часов 12 минут 25 секунд- 15 часов 30 минут 40 секунд? Это реально вообще?

Не совсем понятно что тебе надо, но в Delphi со временем можно проводить любые арифметические операции, как и с типом Double.

Цитата(Guest @ 19.11.2005, 08:43)

я просто видимо недостаточно точно объяснил. Имелось ввиду сохранять файл в папку C:\dima\ (к паримеру) а дату он каждый день сам вставлял...

Код

...     begin        Fn:='C:\dima\'+DateToStr(date)+'.txt';        AssignFile(F, Fn);        Rewrite(F);     ...

Цитата(Guest @ 19.11.2005, 08:43)

И ещё заодно вопросик в книжках смотрел нигде не нашел. А можно сделать чтобы он вычитал время... т.е. к примеру. т.е. одна ячейка к примеру имеет такое время: StringGrid1.Cells[1,1]:=DateTimeToStr(Now); другая StringGrid1.Cells[1,2]:=DateTimeToStr(Now); к примеру 16 часов 12 минут 25 секунд- 15 часов 30 минут 40 секунд?

можно:

Код

... var t,tt,dt:TDateTime; ... t:=encodetime(16,12,25,0); tt:=encodetime(15,30,40,0); dt:=t-tt; StringGrid1.Cells[1,3]:=TimeToStr(dt); ...

Это сообщение отредактировал(а) Albinos_x - 20.11.2005, 13:11

А можно чтобы он время из ячеек stringgrid брал.???

Цитата(Guest @ 19.11.2005, 20:24)

А можно чтобы он время из ячеек stringgrid брал.??

и это можно:

Код

t:=StrToDateTime(StringGrid1.Cells[1,1]);     tt:=StrToDateTime(StringGrid1.Cells[1,2]);     dt:=t-tt; StringGrid1.Cells[1,3]:=TimeToStr(dt);

Это сообщение отредактировал(а) Albinos_x - 19.11.2005, 22:10

нужно, чтоб название файла по дате определялось..так??
дык зачем strtodate и datetostr???Да и со временем такие же манипуляции...
пусть файл и называется:

Код

s:='C:\dima\'+sg1.cells[i,j]+'.txt';         AssignFile(F, s); //а с тем какая ячейка даст имя разобраться можнои так: var      col    :integer; //--------- procedure TForm1.SG1Click(Sender: TObject); begin  col:=sg1.Col;  caption:=Sg1.Cells[col,3]; end; procedure TForm1.Button1Click(Sender: TObject); var    i:integer;//это для примера - заполнили стринггрид... begin with sg1 do  for i:=1 to 4 do       sg1.Cells[i,3]:=inttostr(i); end;

Это сообщение отредактировал(а) VVSF - 20.11.2005, 10:54

VVSF
по дате, а не по дате со временем:

Цитата

в одной из ячейке stringgrid появлялось текущее время и дата

в твоём варианте нужно так:

Код

... s:=sg1.cells[i,j]; delete(s,pos(' '),length(s)) s:='C:\dima\'+s+'.txt';

вот так мы получим дату из даты и времени.

Цитата(VVSF @ 20.11.2005, 10:49)

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

последний вопрос был - как вычесть из одного времени другое и чтоб они брались из StringGrid1