const
FILE_NAME = 'datetime.txt';
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure SetTime(const FileName: String; const Time: TDateTime);
function GetTime(const FileName: String): TDateTime;
end;
implementation
function TForm1.GetTime(const FileName: String): TDateTime;
var
F: TextFile;
Time: Double;
begin
AssignFile(F, FileName);
Reset(F);
Readln(F, Time);
CloseFile(F);
Result := Time;
end;
procedure TForm1.SetTime(const FileName: String; const Time: TDateTime);
var
F: TextFile;
begin
AssignFile(F, FileName);
Rewrite(F);
Writeln(F, Now());
CloseFile(F);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
DT: TDateTime;
begin
SetTime(FILE_NAME, Now());
DT := GetTime(FILE_NAME);
showmessage(DateTimeToStr(DT));
end;
Проверка даты и вывод в зависимости от неё
Очень глупый вопрос, но тем не менее, очень уж нужен ответ на него.
У меня в проекте есть 2 некоторых функции.
Мне нужно чтобы некоторая дата читалась из другого txt-файла и если текущая дата==дате в файле, запускалась первая функция, а если не равна, то вторая функция. Вроде очень просто, но я у меня так и не получилось написать рабочий вариант, т.к. всего пару дней с дельфями. Помогите, оч нада )
У меня в проекте есть 2 некоторых функции.
Мне нужно чтобы некоторая дата читалась из другого txt-файла и если текущая дата==дате в файле, запускалась первая функция, а если не равна, то вторая функция. Вроде очень просто, но я у меня так и не получилось написать рабочий вариант, т.к. всего пару дней с дельфями. Помогите, оч нада )
а где попытки которые не получились?
if data1 = nowdata then
function1 else function2;
и чего здесь сложного?
function1 else function2;
и чего здесь сложного?
Думаю, сложность у автора больше в чтении этой даты из файла?..
[quote=NeverBC]Очень глупый вопрос, но тем не менее, очень уж нужен ответ на него.
У меня в проекте есть 2 некоторых функции.
Мне нужно чтобы некоторая дата читалась из другого txt-файла и если текущая дата==дате в файле, запускалась первая функция, а если не равна, то вторая функция. Вроде очень просто, но я у меня так и не получилось написать рабочий вариант, т.к. всего пару дней с дельфями. Помогите, оч нада )[/quote]
var
lt: TSYSTEMTIME;
const
d= '';
begin
GetLocalTime(lt);
d := memo1.lines.loadfromfile('t.txt'); //например 10-22-2006
//Получаем текущие месяц-дату-год
Form_view.caption := IntToStr(lt.wmonth)+'-'+IntToStr(lt.wDay)+'-'+
IntToStr(lt.wYear);
if d <= Form_view.Caption then
ShowMessage('Время Вышло');
У меня в проекте есть 2 некоторых функции.
Мне нужно чтобы некоторая дата читалась из другого txt-файла и если текущая дата==дате в файле, запускалась первая функция, а если не равна, то вторая функция. Вроде очень просто, но я у меня так и не получилось написать рабочий вариант, т.к. всего пару дней с дельфями. Помогите, оч нада )[/quote]
var
lt: TSYSTEMTIME;
const
d= '';
begin
GetLocalTime(lt);
d := memo1.lines.loadfromfile('t.txt'); //например 10-22-2006
//Получаем текущие месяц-дату-год
Form_view.caption := IntToStr(lt.wmonth)+'-'+IntToStr(lt.wDay)+'-'+
IntToStr(lt.wYear);
if d <= Form_view.Caption then
ShowMessage('Время Вышло');
К чему такие сложности?
Ну, а дальше - как советовали выше... Это просто иллюстрация, как поступить с файлом...
Код:
Ну, а дальше - как советовали выше... Это просто иллюстрация, как поступить с файлом...
Попробовал последнее, компилирует вроде без ошибок, но выводит ошибку при запуске, ResNotFound.
Всё ок, разобрался.
Теперь такой вопрос. При записе в файл дата принимает странный формат, типа 3.68218749050463E+0004, нельзя ли переводить в нормальный вид?
Теперь такой вопрос. При записе в файл дата принимает странный формат, типа 3.68218749050463E+0004, нельзя ли переводить в нормальный вид?
и ещё киньте плс в таком же стиле чтение из файла и вывод даты такого формата.
[QUOTE=NeverBC]Всё ок, разобрался.
Теперь такой вопрос. При записе в файл дата принимает странный формат, типа 3.68218749050463E+0004, нельзя ли переводить в нормальный вид?[/QUOTE]
DateTimeToStr ) понял
Теперь такой вопрос. При записе в файл дата принимает странный формат, типа 3.68218749050463E+0004, нельзя ли переводить в нормальный вид?[/QUOTE]
DateTimeToStr ) понял
Ответьте плз всего на один вопросик.
Можно ли мне переменную в формате даты перевести в TStrings и как это сделать, последний штрих так сказать.
Можно ли мне переменную в формате даты перевести в TStrings и как это сделать, последний штрих так сказать.
[QUOTE=NeverBC]Ответьте плз всего на один вопросик.
Можно ли мне переменную в формате даты перевести в TStrings и как это сделать, последний штрих так сказать.[/QUOTE]
TStrings - это вообще абстрактный класс. От него наследуются другие, но непосредственно с ним не нужно ничего делать. И что подразумевается под "перевести переменную в формате даты в TStrings"? Это совсем разные вещи и никак между собой не пересекаются.
Могу предположить, что можно создать объект-наследник, типа TStringList, где каждым элементом будет число Double, означающее какое-то время. Или каждый элемент будет записью типа TTimeStamp... Примерно так. Иного применения TStrings не вижу в данном случае...
Можно ли мне переменную в формате даты перевести в TStrings и как это сделать, последний штрих так сказать.[/QUOTE]
TStrings - это вообще абстрактный класс. От него наследуются другие, но непосредственно с ним не нужно ничего делать. И что подразумевается под "перевести переменную в формате даты в TStrings"? Это совсем разные вещи и никак между собой не пересекаются.
Могу предположить, что можно создать объект-наследник, типа TStringList, где каждым элементом будет число Double, означающее какое-то время. Или каждый элемент будет записью типа TTimeStamp... Примерно так. Иного применения TStrings не вижу в данном случае...
Цитата:
Можно ли мне переменную в формате даты перевести в TStrings
если имеется в виду добавить в список - можно так
Код:
memo1.lines.add(datetimetostr(now)); //(memo1.lines: TStrings)
если записать взамен существующих строк - тогда так
Код:
memo1.lines.text := datetimetostr(now);