Schleifen imStringGrid

[Binärbaum]

Zitat von Peti:

Ja, das funktioniert!

Die selbe (bzw. eine fast gleiche) Prozedur steht schon am Anfang des Threads. Die hättest du auch gleich nehmen können.

Zitat von Peti:

Und könnte man das so umwandeln das man das mit reellen Zahlen machen kann?

Ja, einfach Integer durch Real ersetzen und statt IntToStr nimmt man FloatToStr.

Delphi-Quellcode:

procedure Zahlen_in_StringGrid(MinWert, MaxWert, abstand: Real; zeile: Cardinal; var strGrd: TStringGrid);
var i: Real;
    j: Integer;
begin
if MaxWert<MinWert then begin
  i:= MaxWert;
  MaxWert:= MinWert;
  MinWert:= i;
end;//if
i:= minWert;
abstand:= abs(abstand);
while i<=MaxWert do begin
  j:= Round((i-MinWert)/abstand +1);
  strGrd.Cells[j, zeile]:= FloatToStr(i);
  i:= i+abstand;
end;//while
end;

MfG
Binärbaum