Einzelnen Beitrag anzeigen

Tyrael Y.

Registriert seit: 28. Jul 2003
Ort: Stuttgart
1.093 Beiträge
 
Delphi 2007 Professional
 
#18

Re: Spaltenweise auf TStringList zugreifen

  Alt 27. Jul 2009, 09:52
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.
Levent Yildirim
Erzeugung von Icons aus Bildern:IconLev
  Mit Zitat antworten Zitat