delphi4arab منتديات دلفي للعرب

السلام عليكم

اخواني كيف اتحقق من المتغير String
ان كان يحمل ارقام او نص مثلا...اذا كان المتغير يحمل نص يتم استبداله بالقية 1
و اذا كان يحمل ارقام فيعرضها
و بارك الله بالجميع

هذه دالة على السريع للتحقق من أن النص عبارة عن رقم صحيح :

PHP كود :
// By SMP3
function IsStrValidAlpha(const Str: String): Boolean;
var
  c: Pchar;
begin
  Result := False;
  if not Assigned(Pointer(Str)) then
    Exit;
  Result := PDWORD(Str)^ <= High(Integer);
  c := Pchar(Str);
  if Result then
    while c^ <> #0 do
    begin
      if not(c^ in ['0' .. '9']) then
      begin
        Result := False;
        Exit;
      end;
      Inc(c);
    end;
end; 

يكفي أن تمرر للدالة النص الذي تريد أن تتحقق من أنه رقم .
تعود الدالة ب True اذا كان النص رقم صحيح .

السلام عليكم...

و يمكنك الاستفادة من اقتناص أخطاء التحويل للتأكد من أن النص يحوي عدداً فقط أم لا:

كود :
function IsNumber(const AText: string): Boolean;
begin
    try
        StrToFloat(AText);
        Result := True;
    Except
        Result := False;
    end;
end;

نرجو الاستفادة و السلام.

smp3 كتب :هذه دالة على السريع للتحقق من أن النص عبارة عن رقم صحيح :
يكفي أن تمرر للدالة النص الذي تريد أن تتحقق من أنه رقم .
تعود الدالة ب true اذا كان النص رقم صحيح .

بارك الله بيك
ساعدتني كثيرا في مشواري مع الدلفي
و ليجعله الله في ميزان حسناتك

najy ibraheem كتب :و يمكنك الاستفادة من اقتناص أخطاء التحويل للتأكد من أن النص يحوي عدداً فقط أم لا:

شكرا جزيلا لك ان شاء الله تعم الفائدة على الجميع

Anew

SMP3

Najy Ibraheem

Anew