27-12-2011, 09:21 PM
السلام عليكم
استخدم TryStrToInt
مثال بنفس الطريقة مع تأريخ:
إن كان الأمر متعلق بحقل من جدول فهناك دالة جاهزة:
بالتوفيق.
استخدم TryStrToInt
مثال بنفس الطريقة مع تأريخ:
كود :
function IsDate(ADate: string): Boolean;
var
Dummy: TDateTime;
begin
Result := TryStrToDate(ADate, Dummy);
end;إن كان الأمر متعلق بحقل من جدول فهناك دالة جاهزة:
كود :
if YourField.IsValidChar(YourEdit.Text[1]) then