نکات برنامه نویسی در دلفی

[babak_delphi]

نحوه تبدیل Time به عدد
البته فرمت ورودی باید string باشه مثلا (12:04)
خروجی هم یک string با فرمت عددی است مثل : "12:04"

Function TIME_TO_INT(Str : string) : String;

var

temp,con : string;

p : ^String;

begin

  if str <> '  :  ' then

    begin

    p := @temp;

    temp := Trim(PChar(Str));

    con := p^[1] + p^[2] + p^[4] + p^[5];

    TIME_TO_INT := con;

    end

  else

    TIME_TO_INT := '0';

end;