blob: 12e3be1cb466a1be06032139ed5d0facb161fd69 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Program Example21;
{ This program demonstrates the StrToTime function }
Uses sysutils;
Procedure TestStr (S : String);
begin
Writeln (S,' : ',TimeToStr(StrToTime(S)));
end;
Begin
teststr (TimeToStr(Time));
teststr ('12:00');
teststr ('15:30');
teststr ('3:30PM');
End.
|
