20 lines
392 B
Text
20 lines
392 B
Text
procedure ShowPalindromeDate(Memo: TMemo);
|
|
var DT: TDateTime;
|
|
var S,S2: string;
|
|
var I,Cnt: integer;
|
|
begin
|
|
Cnt:=0;
|
|
DT:=EncodeDate(2020,02,02);
|
|
for I:=0 to High(integer) do
|
|
begin
|
|
S:=FormatDateTime('yyyymmdd',DT);
|
|
S2:=ReverseString(S);
|
|
if S=S2 then
|
|
begin
|
|
Inc(Cnt);
|
|
Memo.Lines.Add(IntToStr(Cnt)+' '+FormatDateTime('yyyy-mm-dd',DT));
|
|
if Cnt>15 then break;
|
|
end;
|
|
DT:=DT+1;
|
|
end;
|
|
end;
|