تقسيم الحروف

[محمد عبد العزيز]

اليس كان من المفروض ان ينبهني الCompiler !

لا
الCompiler يتوقف عند اخطاء كتابة الاوامر Syntax ولا ينبهك عن الاخطاء المنطقية او اخطاءالتنفيذ Runtime Error فهذه من شأن المبرمج

يمكن معرفة طول String باستخدام Length
مثلا في مثالك السابق تتحقق من ان الطول اكير او يساوي 12 تكتب شيئ مثل

PHP كود :

a := Edit1.Text;
if length(a)<12 then begin
  showmessage('الكلمة المدخلة قصيرة جدا');
  exit;
End; 


ان اردت قلب النص يمكن ان تستخدم ReverseString من الوحدة StrUtils
راجع http://www.delphi4arab.net/forum/showthr...606&page=2

او تقوم بذلك يدويا بكتابة شيئ مثلا

PHP كود :

var a,s:string;
    i,len:integer;
begin
  a:=Edit1.Text;
  len := length(a);
  s:='';
  for i:=0 to len-1 do
    s:=s+a[len-i];

  edit2.text := s;
end; 


والسلام عليكم