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