Einzelnen Beitrag anzeigen

silver-moon-2000

Registriert seit: 18. Feb 2007
Ort: Schweinfurt
170 Beiträge
 
Delphi XE Professional
 
#11

AW: Datenstruktur für (viele) xy-Werte

  Alt 23. Aug 2011, 14:55
Hej,
Aktuell hab ich die Daten in einer StringListe (durch den Import aus einer Textdatei) und müsste im nächsten Schritt ein wenig rechnen damit. Nachdem ich hier im Forum immer wieder lese, dass man dynamische Arrays meiden sollte, bin ich ein wenig am Überlegen, was sonst.
Ich habe jetzt keine Ahnung, wie bei Dir dieses "rechnen" aussieht, vielleicht liege ich jetzt komplett daneben, aber vielleicht kann man das auch in eine Klasse verpacken
Delphi-Quellcode:
TFloatPoint = class(TObject)
  private
    FX : Double;
    FY : Double;
  public
    constructor Create(_x, _y : Double);
    function getAbstandVomUrsprung : Double;
    function getAbstandVonAnderemPunkt(_p : TFloatPoint);
    property X : Double read FX write FX;
    property Y : Double read FY write FY;
end;
und die Speicherung dann über eine T(Object)List.
Delphi-Quellcode:
procedure TransferValues;
var
  list : TObjectList;
  tx, ty : Double;
begin
  list := TObjectList.Create;
  for i := 0 to StringList.Count - 1 do
  begin
    tx := StrToInt({x-Element aus}StringList.Lines[i]);
    ty := StrToInt({y-Element aus}StringList.Lines[i]);
    list.Add(TFloatPoint.Create(tx, ty));
  end;
  //Weitere Arbeitsschritte mit den Werten
  List.Free;
end;
Fehlerbehandlung außen vor gelassen

Ist etwas langsamer als der Zugriff über Records, aber wenn Geschwindigkeit nicht das oberste Gebot ist, finde ich ObjectLists eigentlich immer sehr komfortabel.
Vielleicht bin ich aber auch komplett über's Ziel hinaus oder knapp dran vorbei geschossen...
Tobias
Bitte nicht hauen , ich weiß es nicht besser
  Mit Zitat antworten Zitat