الخروج من Function او Procedure عندما يتحقق شرط ما

[abdelmalek]

السلام عليكم ورحمة الله وبركاته

كيف يمكنني الخروج من Function او Procedure عندما يتحقق شرط ما؟؟!
لتوضيح أكثر :
عندي هاته الدالة :

PHP كود :

Function TestVide:Boolean;
Begin
Result:=True;

  If Edit1.text = ''then
     Begin
       ShowMessage('edit1 vide');
       Result:=False;
     End;
    
  If Edit2.text = ''then
     Begin
       ShowMessage('edit2 vide');
       Result:=False;
     End;
    
  If Edit3.text = ''then
     Begin
       ShowMessage('edit3 vide');
       Result:=False;
     End;

end; 


عندا تحقق الشرط الاول يظهر المساج تم يتم الخروج من Function وان لم يتحقق يتابع وهكذا
حاولت استخدام الامر Exit ولكن لم يجدي نفعا.

PHP كود :

Function TestVide:Boolean;
Begin
Result:=True;

  If Edit1.text = ''then
     Begin
       ShowMessage('edit1 vide');
       Result:=False;
       Exit;
     End;
    
  If Edit2.text = ''then
     Begin
       ShowMessage('edit2 vide');
       Result:=False;
       Exit;
     End;
    
  If Edit3.text = ''then
     Begin
       ShowMessage('edit3 vide');
       Result:=False;
       Exit;
     End;

end; 


في امان الله

[Agmcz]

السلام عليكم

انا مبتدأ وأردت أن أساعد لكن دالة تعمل عادي والله أعلم والأمر exit يعمل

كود :

Function TestVide(a, b, c: string):Boolean; Begin Result:=True; If a = '' then Begin ShowMessage('edit1 vide'); Result:=False; Exit; End; If b = '' then Begin ShowMessage('edit2 vide'); Result:=False; Exit; End; If c = '' then Begin ShowMessage('edit3 vide'); Result:=False; Exit; End; end; procedure TForm1.Button1Click(Sender: TObject); begin TestVide(Edit1.Text, Edit2.Text, Edit3.Text); end;

[abdelmalek]

وعليكم السلام ورحمة الله وبركاته

انا مبتدأ وأردت أن أساعد لكن دالة تعمل عادي والله أعلم والأمر exit يعمل

نحن نتقبل الـHelp من ايي شخص كان بارك الله فيك اخي الكريم rami .
لكن المشكلة لم تنحل بعد.
للمزيد من التوضيح :
عندا تنفيذ الدالة تمر على الشرط الاول إذ كان متحقق تظهر الميسج وتخرج وإن لم يكن كدالك تنتقل الى الشرط الثاني إن اكان متحقق تظهر الميسج وتخرج وإن لم يكن كدالك تمر الى الشرط الثالث و هكذا ...
بارك الله فيكم وشكرا لكم .

[seiffo]

السلام عليكم
لقد تحققت من الدالة وهي تعمل عادي اخي عبد المالك مع العلم انني استخدم delphi 2010

[kachwahed]

وعليكم السلام ورحمة الله وبركاته

PHP كود :

function testvide:boolean;
begin
  result:=true;
  if edit1.text = ''then
     begin
       showmessage('edit1 vide');
       result:=false;
       exit;
     end

  else if edit2.text = ''then
     begin
       showmessage('edit2 vide');
       result:=false;
       exit;
     end

  else if edit3.text = ''then
     begin
       showmessage('edit3 vide');
       result:=false;
       exit;
     end;
end; 


بالتوفيق عبد المالك.

[abdelmalek]

بارك الله فيك إستاذي كش وحد
في الكود الذي دكرته انت يمكننا نزع الامر exit (ليست له فائدة على ما اضن) .
هل هذا صحيح ؟

[mohfa]

اخي عبد المالك ولمادا لاتكون بطريقة بسيطة :

PHP كود :

Procedure IsVide(Const AControl:TEdit;Msg:String);
Var
IsVide:Boolean;
begin
IsVide:=False;//---- False for default
IsVide:=Trim(AControl.text)='';
if IsVide then
begin
ShowMessage( Format('%s %s ',[AControl.Name,MSG]));
//ShowMessage(AControl.Name+' '+MSG);
exit;
end;
end;
Procedure IsAllVide; // All Edits
begin
isVide(Form1.edit1,'is Vide');
IsVide(Form1.edit2,'is Vide');
IsVide(Form1.edit3,'is Vide');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
IsAllVide;
end; 


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

[abdelmalek]

بارك الله فيك اخي mohfa على هاته الطريقة المميزة ولكن لا تفيذ في حالتنا هاته

1- يجب ان تكون function ترجع قيمة boolean
2-

للمزيد من التوضيح :
عندا تنفيذ الدالة تمر على الشرط الاول إذ كان متحقق تظهر الميسج وتخرج وإن لم يكن كدالك تنتقل الى الشرط الثاني إن اكان متحقق تظهر الميسج وتخرج وإن لم يكن كدالك تمر الى الشرط الثالث و هكذا ...

بارك الله فيك على التواصل(طريقتك تحتوي على أفكار مميزة سوف نستثميرها في المستقبل ههههه)
بالتوفيق للجميع

[mohfa]

1- يجب ان تكون function ترجع قيمة boolean

يمكن تحويلها ل Function بكل سهولة .

PHP كود :

Function IsVide(Const AControl:TEdit;Msg:String):Boolean;
begin
Result:=False;//---- False for default
Result:=Trim(AControl.text)='';
if Result then
begin
ShowMessage( Format('%s %s ',[AControl.Name,MSG]));
//ShowMessage(AControl.Name+' '+MSG);
exit;
end;
end; 


انت و خبرتك .

والسلام عليكم ورحمة الله وبركاته