Typen nicht miteinander vereinbar

[fransa]

So gut mit Delphi kenne ich mich noch nicht aus, deshalb wäre ich dankbar, wenn mir jemand sagen könnte was es bedeutet, wenn Delphi sagt, Typen nicht miteinander vereinbar. Ich brauche einfach nur den Mittelwert aus a-j.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,f,g,h,i,j,mittelwert:real;
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);

 mittelwert:=(a+b+c+d+e+f+g+h+i+j)/10;
 label12.caption:=mittelwert;

end;

[lbccaleb]

probier es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,f,g,h,i,j,mittelwert:integer;
begin
  j:=strtoint(edit10.text);
  i:=strtoint(edit9.text);
  h:=strtointedit8.text);
  g:=strtoint(edit7.text);
  f:=strtoint(edit6.text);
  e:=strtoint(edit5.text);
  d:=strtoint(edit4.text);
  c:=strtoint(edit3.text);
  b:=strtoint(edit2.text);
  a:=strtoint(edit1.text);

mittelwert:=(a+b+c+d+e+f+g+h+i+j) div 10;
label12.caption:=inttostr(mittelwert);

[DeddyH]

label12.caption:=FloatToStr(mittelwert); BTW: Ich würde statt real Double nehmen.

[fransa]

Vielen Dank, dass hat alles geklappt.

Wenn ich die Werte von a-j nun tauschen möchte, also j:=i; i:=h; h:=g; ... muss ich das dann so schreiben oder muss ich das über eine Hilfsvariable machen?

[lbccaleb]

musst du über ne hilfsvariable machen, weil bei der letzten bekommst du sonnst probleme...

[fransa]

Ich habe jetzt j:=z; ,aber trotzdem werden die Zahlen nicht getauscht.
i:=j;
z:=i;

[lbccaleb]

wieso denn überhaupt tauschen?? kannst du die var nicht so weiterverwenden??

[silver-moon-2000]

Zitat von fransa:

Ich habe jetzt j:=z; ,aber trotzdem werden die Zahlen nicht getauscht.
i:=j;
z:=i;

Hi, ich denke, sollte es besser passen, wenn du i und j tauschen willst:

Delphi-Quellcode:

z:=j;
j:=i;
i:=z;

[fransa]

Das habe ich auch schon probiert, aber dennoch stehen die Zahlen still.

[DeddyH]

Oder am Besten gleich in eine Prozedur packen.

Delphi-Quellcode:

procedure swapvalues(var a,b: Double);
var tmp: Double;
begin
  tmp := a;
  a := b;
  b := tmp;
end;