function kullanarak 3 farklı edit'deki time formatını doğruysa siyah yanlış ise font rengini kırmızı yaparak kullanıcıya bilgilendirmek istiyorum;
Fakat tek bir function ile hangi 3 edit'den biri time yanlış girilmişse o edit'in fontunu nasıl kırmız yaptırabilirim?
Kod: Tümünü seç
function TMainForm.TimeKontrol(Const StrSure: String): String;
begin
Kontrol := Edit1.Text;
if (Length(Kontrol) = 8) and (Copy(Kontrol, 3, 1) = ':') and (Copy(Kontrol, 6, 1) = ':') and (StrToTimeDef(Kontrol, Now) <> (Now)) then
begin
Edit1.Font.Color := $000000;
end
else
begin
Edit1.Font.Color := $0000FF;
end;
end;