Listboxen initialisieren, umkopierne ...

[h4nnes_]

okay, danke funktioniert!

Nun muss ich eine Forschleife gestalten in Zweier Schritten:

w/2
w/4
w/6
.
.
.
w/16


wie kann das mit doppelter FOR Schleife gehen dass ich nur 2er schritte verwende? soweit bis jetzt!

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var w:real;
var h,i:byte;
var a:real;
begin
 w:=StrToFloat(Edit1.Text);
   for h:=2 to 16 do begin
      for  i:=0 to 2 do begin
           h:=h+i;
         end;

      a:= w/h;
      RE1.Lines.Add(FloatToStr(a));

   end;
end;

lg