Spaltenweise auf TStringList zugreifen

[Tyrael Y.]

Ich finde es wäre viel einfacher von der Handhabung deine Daten pro Zeile in Objekte zu schreiben und diese Objekte in einer TObjectList zu verwalten. Dieses auf Teufel komm raus mit Strings rumhantieren ist echt sehr suboptimal.

Delphi-Quellcode:

type
  TMyDataObject = class
    public
      Datum: TDateTime;
      Wert1: float;
      Wert2: int;
      usw.
   end;

Dann kannst du auch simpel Mittelwertberechnungen durchführen.

Delphi-Quellcode:

function BerechneMittelwertVonWert1(): float;
var i, anzahlElemente: integer; 
    gesamt: float;
begin
  gesamt = 0;
  anzahlElemente := myObjectList.Count;

  for i = 0 to anzahlElemente-1 do
  begin
    gesamt := gesamt + TMyDataObject(myObjectList).Wert1;
  end
  result := gesamt/anzahlElemente;
end;

Auch jede andere Funktionalität lässt sich ab diesem Zeitpunkt modular einbauen.