Schleifen imStringGrid

[Binärbaum]

Zitat von Peti:

Das ist mein bisheriger Quelltext:

Code:

var
  Form1: TForm1;
   min, max, schritt,i:real ;
procedure TForm1.Button1Click(Sender: TObject);
begin
min:=0;
max:=0;
schritt:=0;
min:=strtofloat(E_min.text);
max:=strtofloat(E_max.text);
schritt:=strtofloat(E_Schrittweite.text);
repeat i:=min+schritt;
until i=max;
Sg.cells[i,0]:=floattostr(i);
end;

So wie er jetzt ist wird das Programm gar nicht erst gestartet, aber wenn ich alles in Integer Werte mache, wird das Programm gestartet, es wird aber nichts ausgegeben.

Du musst die Zeile Sg.cells[i,0]:=floattostr(i); IN die repeat-Schleife schreiben, wenn mehrere Zahlen ausgegeben werden sollen:

Delphi-Quellcode:

repeat i:=min+schritt;
 Sg.cells[i,0]:=floattostr(i);
until i>=max;

MfG
Binärbaum