Einzelnen Beitrag anzeigen

fransa

Registriert seit: 12. Mai 2007
28 Beiträge
 
#23

Re: Typen nicht miteinander vereinbar

  Alt 25. Jun 2007, 20:03
An Chemiker:
Das ist der Quell-Code zum Tauschen:

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

  b:=a;
  c:=b;
  d:=c;
  e:=d;
  f:=e;
  g:=f;
  h:=g;
  i:=h;
  j:=i;
 end;
Soll ich dann dass mit edit2.text:=b vor c:=b einfügen?
  Mit Zitat antworten Zitat