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

التحقق من المتغير String ان كان يحمل ارقام او نص - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التحقق من المتغير String ان كان يحمل ارقام او نص (/showthread.php?tid=5907)

التحقق من المتغير String ان كان يحمل ارقام او نص - Anew - 01-02-2014

السلام عليكم

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

التحقق من المتغير String ان كان يحمل ارقام او نص - SMP3 - 01-02-2014

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

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

التحقق من المتغير String ان كان يحمل ارقام او نص - Najy Ibraheem - 01-02-2014

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

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

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

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

التحقق من المتغير String ان كان يحمل ارقام او نص - Anew - 01-02-2014

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

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

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

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