Schleifen imStringGrid

[Binärbaum]

Meinst du sowas hier:

Delphi-Quellcode:

procedure Zahlen_in_StringGrid(MinWert, MaxWert: Integer; abstand: Cardinal);
var i,j: Integer;
begin
 if MaxWert<MinWert then begin
  i:= MaxWert;
  MaxWert:= MinWert;
  MinWert:= i;
 end;//if
 i:= minWert;
 while i<=MaxWert do begin
  j:= (i-MinWert) div abstand +1;
  StringGrid1.Cells[j, 3]:= IntToStr(i);
  i:= i+abstand;
 end;//while
end;

Das Beispiel füllt die Zeile 3 des StringGrid1 mit den Zahlen von MinWert bis MaxWert, wobei die vorherige Zahl immer um Abstand kleiner ist als ihn Nachfolger.

MfG
Binärbaum