Selam.
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?
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?
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;
Hayat bazen güzel olabiliyor.