التحقق من المتغير String ان كان يحمل ارقام او نص

[Anew]

السلام عليكم

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

[SMP3]

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

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 اذا كان النص رقم صحيح .

[Najy Ibraheem]

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

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

كود :

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

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

[Anew]

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

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

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

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