Forum: Object-Pascal / Delphi-Language
Delphi
by Ginko,
25. Mai 2009
Nein nicht das ich wüsste...
Forum: Object-Pascal / Delphi-Language
Delphi
by Ginko,
25. Mai 2009
So hab es ganz gut gelöst bekommen, recht einfach aber ausreichend, solange man nur ganze Zahlen als Y-Wert braucht, hier ist der Quelltext:
procedure Histogramm(Px_werte,Panzahl_werte : TStringList; Py_max : Integer);
var i,z,z2,Py_laenge,y_einteilung,y_beschriftung,Flanke : Integer;
begin
Py_laenge := 300; //Y-Achsenlänge in px
//y-Achse einteilen
while Py_max mod 10 <> 0 do
Forum: Object-Pascal / Delphi-Language
Delphi
by Ginko,
22. Mai 2009
Also ich hätte es gerne so, dass man den y-max wert übergeben kann und das dann die Y-Achse so eingeteilt wird, dass unten 0 steht und nach oben hin in gleichen abständen zu Y-max+1 hochgezählt wird.
Halt immer in den Schritten, dass es noch passt, also wenn es nicht in einser Schritten geht dann in 2,4,6 usw.
Was nicht funkioniert, ist dass die Höhe der Histogramm Balken mit den Werten der...
Forum: Object-Pascal / Delphi-Language
Delphi
by Ginko,
22. Mai 2009
Hallo ich versuche gerade ein Histogramm zu machen mit einer automatischen Y-Achseneinteilung, aber irgendwie klappt es nicht so wie ich es will, bis auf die X-Achse. Vielleicht hat jemand ein paar Tipps, wäre super.
Hier ist der Quelltext:
procedure Histogramm(Px_werte,Panzahl_werte : TStringList; Py_max : Integer);
var i,j,z,z2,z3,Py_laenge,y_einteilung,y_beschriftung : Integer;
begin
...