Odpowiednik TryEncodeDate

Odpowiednik TryEncodeDate który w trakcie zamiany ze stringu na TDateTime nie zawiesi programu lub funkcja która testuje stringową wersję daty czy jest poprawna.

Znaczy co? Chcesz takie coś napisać czy potrzebujesz? Zgłoś się do mnie na GG to ci napisze... bardzo prosto jest zrobić coś takiego.

try
  StrToDate('dupa jasiu');
except
end;

Powinno ukryć komunikaty, a w bloku except..end możesz wstawić własną obsługę błędu.

try
  StrToDate('dupa jasiu');
except
end;

Tak też mu podałemna gg :D. Chodziło o kolrowanie zawartości Edita na czerwono kiedy data nie jest poprawna, czyli o taki kod:

procedure TForm1.Edit1Change(Sender: TObject);
var czas : TDateTime;
begin
  try
    czas := StrToDateTime(Edit1.Text);
    Edit1.Font.Color := clBlack;
  except
    Edit1.Font.Color := clRed;
  end;
end;