+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : أين الخطأ في هذا الكود (/showthread.php?tid=3005)
أين الخطأ في هذا الكود - ELARAPY - 17-04-2011
أردت ان اطبق مع الدرس الثالث في دوره دلفي للعرب وهو درس الاجراءات والدوال وعند محاولتي لتغير الاجراء الى داله لم اتمكن مع اني افعل خطوه خطوه مع الفيديو لأرى الخطأ ولم اتمكن.
اين الخطأ في هذه الداله
كود :
implementation
{$R *.dfm}
function mathoperation(a, d: integer ; sig :string):integer;
begin
if sig = '+' Result := a+d ;
if sig = '-' Result := a-d ;
if sig = '*' Result := a*d ;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a, d, c : integer ;
sig : string ;
begin
c := 0;
a := strtoint (Edit1.Text);
d := strtoint (Edit2.Text);
sig := Edit3.Text ;
if sig = '+' then c:= a+d ;
if sig = '-' then c:= a-d ;
if sig = '*' then c:= a*d ;
Edit4.Text := inttostr (c);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit4.Text := inttostr(mathoperation(strtoint(Edit1.Text), strtoint(Edit2.Text)Edit3.Text));
end;
end.أين الخطأ في هذا الكود - kachwahed - 17-04-2011
السلام عليكم ورحمة الله
يبدو الخطأ هنا:
كود :
Edit4.Text := inttostr(mathoperation(strtoint(Edit1.Text), strtoint(Edit2.Text[color=Red])E[/color]dit3.Text));أين الخطأ في هذا الكود - maosalah - 18-04-2011
كود :
function mathoperation(a, d: integer ; sig :string):integer;
begin
if sig = '+' then Result := a+d ;
if sig = '-' then Result := a-d ;
if sig = '*' then Result := a*d ;
end;التعديل في كتابة الشرط
If .... then
أين الخطأ في هذا الكود - ELARAPY - 19-04-2011
الخطأ مازال موجود
كود :
http://www14.0zz0.com/2011/04/19/02/970625480.jpgأين الخطأ في هذا الكود - karazeh2006 - 19-04-2011
أخي الكريم .... كما أوضح لك السيد maosalah عدل جمل الشرط IF ... Then
أين الخطأ في هذا الكود - roniothman - 19-04-2011
التصحيح
PHP كود :
if sig = '+'Then Result := a+d ;
if sig = '-' Then Result := a-d ;
if sig = '*' Then Result := a*d ;
PHP كود :
Edit4.Text := inttostr(mathoperation(strtoint(Edit1.Text), strtoint(Edit2.Text),Edit3.Text));
end;