Code:
procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Word;
begin
Present:= Now;
SysUtils.DecodeDate(Present, Year, Month, Day);
end;
Edit2.Text := IntToStr(Day) + IntToStr(Month) + InTtoStr(Year);
a) das kann nicht compiliert werden wg. "Year, Month, Day, Word;"
was hat es mit dem Word auf sich?
b) wenn Du es richtig gemacht hättest "Year, Month, Day: Word;", dann wäre doch wohl klar gewesen, das Word einen Typen bezeichnet!?
Gruß
K-H