Typen nicht miteinander vereinbar

[Chemiker]

Hallo fransa,

das sind doch nur lokale Variable, nach dem verlassen der TForm1.Button2Click Procedure sind doch auch die Variablen nicht mehr vorhanden.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); 
var a,b,c,d,e,f,g,h,i,j:real; // Auf double ändern !!!!!!!
begin 
  j:=strtofloat(edit10.text); 
  i:=strtofloat(edit9.text); 
  h:=strtofloat(edit8.text); 
  g:=strtofloat(edit7.text); 
  f:=strtofloat(edit6.text); 
  e:=strtofloat(edit5.text); 
  d:=strtofloat(edit4.text); 
  c:=strtofloat(edit3.text); 
  b:=strtofloat(edit2.text); 
  a:=strtofloat(edit1.text); 

  b:=a; 
  c:=b; 
  d:=c; 
  e:=d; 
  f:=e; 
  g:=f; 
  h:=g; 
  i:=h; 
  j:=i; 


  Edit1.text:= FloatToStr(a); 
  Edit2.text:= FloatToStr(b); 
   :
   :
  Edit10.text:= FloatToStr(j); 

  
  
end;

Bis bald Chemiker