تبدیل ساعت به دقیقه در maskedit

[mohsen110]

با سلام و تبریک سال نو
من تازه کار با دلفی شروع کردم و می خواستم که در maskedit ساعت و دقیقه را به دقیقه تبدیل کنم مثلا 02:20 رابه 140 تبدیل کنه . من نمی دونم که چطور از maskedit ساعت و دقیقه را جدا بگیرم .جستجو هم کردم ولی به نتیجه نرسیدم
با تشکر

[MohsenB]

سلام

خاصیت EditMask کنترل رو روی یک فرمت استاندارد زمان مثل !90:00;1;_ ( ShortTime ) قرار بدید و از نمونه کد زیر استفاده کنید :

uses System.DateUtils;

function MyGetMinute(iTime :string):Word;
var vTime :TDateTime;
begin
try
vTime:= StrToTime(iTime);
Result:= (HourOf(vTime) * 60) + MinuteOf(vTime);
except
Result:= 0;
end;
end;

برای مثال :

procedure TForm1.btn1Click(Sender: TObject);
begin
ShowMessage(IntToStr(MyGetMinute(medt1.Text)));
end;

موفق باشید