خطأ في برنامج لحل معادلة من الدرجة 2 - نسخة قابلة للطباعة

خطأ في برنامج لحل معادلة من الدرجة 2 - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : خطأ في برنامج لحل معادلة من الدرجة 2 (/showthread.php?tid=6642)

خطأ في برنامج لحل معادلة من الدرجة 2 - hizoka - 17-12-2014

السلام عليكم

انا جديد في برمجة وهذا اول تطبيق لي يظهر نتائج معاملات x² و x و c في برنامج لحل معادلة من الدرجة 2 ولاكن واجهت مشكلة

كود :
function hizoka(s:string;k:string):integer;
var
i,b,c,j:integer;
a:string;
begin

  for i := 1 to length(s) do
  if s[i]= k then if  (s[1]=k) or (s[i-1]='+') or (s[i-1]='-') then begin result:= 1;  exit; end
   else
  for j := i-1 downto 1 do
  if (s[j]= '+') or (s[j]= '-') or (s[j]= '') then begin
  a := copy(s,j-1,i+1);
  result:=strtoint(a) ;
  delete(s,j,i) ;
  end;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin

a:=hizoka(edit1.Text,'x²');
b:=hizoka(edit1.Text,'x');
c:= strtoint(edit1.Text);
 label1.caption:= inttostr(a);
 label2.caption:= inttostr(b);
 label3.caption:= inttostr(c);

end;

خطأ في برنامج لحل معادلة من الدرجة 2 - bassem_43 - 18-12-2014

وعليكم السلام
وضح رسالة الخطا التي تضهر لديك

خطأ في برنامج لحل معادلة من الدرجة 2 - hizoka - 18-12-2014

[صورة: m9JU4O.png]

[صورة: m9JU4O.png]