delphi4arab منتديات دلفي للعرب

السلام عليكم

انا جديد في برمجة وهذا اول تطبيق لي يظهر نتائج معاملات 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;

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

hizoka

bassem_43

hizoka