Tanimlama :function TimeToStr(Time:TDateTime); string; overload;
function TimeToStr(Time:TDateTime); const FormatSettings:
string;overload; Parametre ile belirtilen tarih ve zamanin sadece zaman ile ilgili kismini string'e çevirip yazdirmak için kullanilir.Asagidaki örnekte TimeToStr ile DateTimeToStr arasindaki fark anlatilmistir.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
zaman:TDateTime;
begin
zaman:=now;
ShowMessage('Timetostr='+Timetostr(zaman)+#13#10+
'Datetimetostr='+Datetimetostr(zaman));
end;