22-02-2008, 10:41 PM
السلام عليكم
من الأحسن ان يكون كالآتي
الحكمة من ذلك هو أنك لا تعلم هل '.' أم ',' هي المستعملة من طرف النظام كتعبير عن الفاصلة
تحياتي
metal كتب :ممتاز, اذا استطيع جعلها تدعم الفاصلة ايضا:
من الأحسن ان يكون كالآتي
كود :
if not (Key in ['0'..'9', #8, DecimalSeparator]) then
begin
Key := #0;
Beep;
end;الحكمة من ذلك هو أنك لا تعلم هل '.' أم ',' هي المستعملة من طرف النظام كتعبير عن الفاصلة
تحياتي