Suche nach einer passenden Datenstruktur

[xedrei]

Danke für Eure Antworten!

Vielleicht habe ich mich falsch ausgedrückt. Ich will die Werte nicht in der Datenbank speichern. Die Werte sind schon drin. Ich lese diese nur aus, und zwar genau drei Werte pro Zeile: (x,y) und ein Wert dazu. X,Y, und der Wert sind float. Die (x,y)-Punkte visualisiere ich mit einer TChart-Komponente als TPointsSeries. Soweit alles gut! Aber ich möchte zur Laufzeit im Programm, nicht in der Datenbank, eine Datenstruktur haben, die für jede Koordinate den Wert enthält, also z.B. [(345.65, 234.54) = 20.19], [(3.6, 24.4) = 15.22], ...

Ich möchte über die zwei Koordinaten einen Wert auslesen, und zwar mit einem möglichst kleinen Aufwand! Wie könnte man so was machen?

[jfheins]

Du kannst dir selbst einen Index bauen. Wenn du deine Minimal- und Maximalwerte kennst (oder beim auslesen ermittelst), skalierst du (für den Index) die Werte auf 0..255. Dann kannst du ein 2D-Array 0..255 0..255 nehmen und darin dann Listen mit den Punkten speichern.

Wenn du dann zu gegebenen (Klick?) Koordinaten den nächstgelegenen Punkt suchst, kommen nur noch sehr begrenzte Punktmengen in Frage. Zuerst suchst du in dem Feld des Klicks nach Punkten. Ist da keiner drin, nimmst du die 8 Felder drum herum usw. Du solltest jedoch schauen, dass deine Index-Felder möglichst quadratisch sind, da du nach dem Fund noch alle andere Felder abprüfen musst, die näher dran sein könnten.
Idealerweise würdest du die Feinheit der Indexstruktur noch irgendwie an die Mächtigkeit der Punktmenge anpassen, oder gleich einen Quadtree verwenden.

[Sir Rufo]

Würde ich schon mal gar nicht so machen.

Jeder Eintrag in so einer TPointSeries hat einen Index und über diesen Index würde ich auch auf die zusätzlichen Daten zugreifen.

Alle Punkte, die man darstellen möchte in eine Liste geben (die holt man so von der Datenbank ab), dann die Punkte in der Reihenfolge der Liste in die TPointSeries und schon passt der Index mit der Liste überein.

Jetzt fragt man nur noch, welchen Index hat der entsprechende Punkt und bekommt über die Liste die Zusatzinfos.

Also so ungefähr:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VclTee.TeeGDIPlus, VclTee.TeEngine,
  VclTee.Series, Vcl.ExtCtrls, VclTee.TeeProcs, VclTee.Chart, VclTee.BubbleCh,
  System.Generics.Collections, Vcl.StdCtrls;

type
  TData = class
  private
    FValX: Double;
    FValY: Double;
    FInfo: string;
  public
    property ValX: Double read FValX write FValX;
    property ValY: Double read FValY write FValY;
    property Info: string read FInfo write FInfo;
  end;

  TForm1 = class( TForm )
    Chart1: TChart;
    Series1: TPointSeries;
    Button1: TButton;
    procedure Chart1ClickSeries( Sender: TCustomChart; Series: TChartSeries;
      ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );
    procedure Button1Click( Sender: TObject );
    procedure FormCreate(Sender: TObject);
  private
    FValues: TList<TData>;
    procedure SetValues( const Value: TList<TData> );
  public
    procedure BeforeDestruction; override;
    property Values: TList<TData> read FValues write SetValues;

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BeforeDestruction;
begin
  FreeAndNil( FValues );
  inherited;
end;

procedure TForm1.Button1Click( Sender: TObject );
var
  randomData: TObjectList<TData>;
  I         : Integer;
  val       : TData;
begin
  randomData := TObjectList<TData>.Create;

  for I := 1 to random( 50 ) + 10 do
    begin
      val      := TData.Create;
      val.ValX := random * 100;
      val.ValY := random * 100;
      val.Info := 'Data ' + I.ToString;

      randomData.Add( val );
    end;

  Values := randomData;
end;

procedure TForm1.Chart1ClickSeries( Sender: TCustomChart; Series: TChartSeries;
  ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );
begin
  ShowMessage( Values[ ValueIndex ].Info );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ReportMemoryLeaksOnShutdown := True;
end;

procedure TForm1.SetValues( const Value: TList<TData> );
var
  val: TData;
begin
  if FValues <> Value
  then
    begin
      FValues.Free;
      FValues := Value;
      Series1.BeginUpdate;
      try
        Series1.Clear;
        if Assigned( FValues )
        then
          begin
            for val in FValues do
              begin
                Series1.AddXY( val.ValX, val.ValY, val.Info );
              end;
          end;
      finally
        Series1.EndUpdate;
      end;
    end;
end;

end.