Преобразовать дату в числовой формат. Условие и цель задачи: Пользователь вводит дату в формате ‘dd.mm.yyyy’, которая присваивается строчной переменной s. Необходимо преобразовать строку в запись d, имеющую три числовых поля – day, month, year

Lazarus(delphi):
type
 d=record
 m1, d1, y1: integer;
end;

var s: string; d1: TDateTime;
begin
s:=edit1.text; (read(s));
d1:=strtoDate(s);
DecodeDate(d1, d[y1], d[m1], d[d1]);
end;

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.