Delphi-PRAXiS - Delphi TChart

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TChart (https://www.delphipraxis.net/70316-tchart.html)

Servus Leute,

hänge an einem wahrscheinlich kleinen Problem in meinem Delphi- Programm fest.
Lese aus einem StringGrid Messwerte in ein TChart aus was auch klappt.
Diese stehen in der 2. Spalte.
Dazu benötige Ich jetzt die Bezeichnungen in der Bottom- Achse die Ich aus der
1. Spalte des StringGrids auslese.
Beides von den letzten 10 Zeilen des StringGrids

So sieht mein Quelltext zum Lesen der 2. Spalte aus:
So ähnlich müsste ja der Befehl auch aussehen. Hab schon ein paar Dinge versucht, doch bin gescheitert!

Delphi-Quellcode:

			procedure TForm6.FormShow(Sender: TObject);

var

i:integer;

begin

DecimalSeparator := ',';

for i:=(Form1.StringGrid1.Rowcount-1)-10 to (Form1.StringGrid1.Rowcount-1) do begin

   series1.addxy(i,Strtofloat(Form1.StringGrid1.cells[2,i]));

   Chart1.LeftAxis.SetMinMax( 0, 200 );

    end;

end;

Ich habe jetzt leider kein Delphi zum Nachsehen zur Verfügung.

1. Spalten und Zeilen sind nullterminiert. Du verwendest für die zweite Spalte den Wert 2. Falls Du mit der nullten Spalte beginnst ist das korrekt, sonst müsstest Du 1 nehmen.

2. Ich würde vor der Schleife prüfen, ob wirklich mindestens zehn Wertezeilen vorhanden sind.

3. Wenn Du unterschiedliche Anzahlen von Zeilen hast, hast Du auch entsprechend unterschiedliche Anfangs- und Endwerte für i. Ist das so gewollt?

4. Das SetMinMax sollte vor der Schleife stehen.