Доброго времени суток, уважаемые эксперты!
Процедура СurrentTime записывает в соответсвтующие переменные, значения word.
Функция WriteToData должна принимать Word от CurrentTime и возвращать string в программу.
т.к. DecodeDate и DecodeTime, при передаче в них однозначных чисел, в переменную записывают не 01, 02, 03.... , а 1, 2, 3..... , встал вопрос как сделать так, чтобы в строку передавалось не 1, 2, 3.... , а 01, 02, 03.... соотеветственно.
Я решил пойти через деление на 10:
a := 0;
str((a div 10), as1);
str((a mod 10), as2);
as1 := as2 + as3;
Но на мой взгляд, для часа, минуты, секунды и милисекунды описывать по три переменных, слишком громоздко. Поэтому прошу у вас помощи, есть ли какие то другие способы перевести время, оставив им численные значения и при этом с возможностью записать в строку?
procedure CurrentTime(var y, m, d, h, mi, s, ms: word);
var
day, month, year, hour, minutes, sec, msec: word;
begin
DecodeDate(Now, year, month, day);
DecodeTime(Now, hour, minutes, sec, msec);
d := day;
m := month;
y := year;
h := hour;
mi := minutes;
s := sec;
ms := msec;
end;
function WriteToData(dat: string; num: integer): string;
var
dd, mon, yy, hh, mm, ss, msc: word;
dds, mons, yys, hhs, mms, mses: string;
begin
dd := 0;
mon := 0;
yy := 0;
hh := 0;
mm := 0;
ss := 0;
msc := 0;
CurrentTime(yy, mon, dd, hh, mm, ss, msc)
{writeln(DC, dd, '/', mon, '/', yy, ' -', count, '- ', hh, ':', mm, ':', ss, #10, n);}
str(dd, dds);
str(mon, mons);
str(yy, yys);
if ((hh >= 0) and (hh=<9)) then
hh :=
