Werte grafisch darstellen

[FLINKER_FINGER]

Hi, habe eine reieh von messdaten die ich gern grafisch im Verlauf darstellen würde. Gibt es von Delphi dafür schon eine Komponente ?? möchte gern sowas wie auf meinem Bild ( siehe Anhang)
Benutze Delphi 7

[Kroko1999]

TChart + F1

[rawsoul]

Wenn es nicht besonders schnell sein soll, kannst du diese Prozedur auf deine Bedürfnisse anpassen.

Delphi-Quellcode:

procedure PlotArrayHorizontal(Paintbox:TPaintbox;A:Array of Integer;GreatestItem:Integer;Col:TColor);
var
  I: Integer;
begin
  Paintbox.Refresh;
  Paintbox.Canvas.Pen.Color:=Col;
  For I := Low(A) to High(A) do
  begin
    Paintbox.Canvas.MoveTo(0, Round(I * ((Paintbox.Height - 1) / High(A))));
    Paintbox.Canvas.LineTo(Round(Paintbox.Width * A[I] / GreatestItem), Round(I * ((Paintbox.Height - 1) / High(A))));
  end;    
end;

[FLINKER_FINGER]

Unter welchem reiter finde ich denn ein TChart ?

[Noobinator]

für deine bedürfnisse dürfte ein Timage oder Tpaintbox objekt komplett ausreichen.

Timage.canvas.moveto(x,y) bewegt deinen Stift einfach zu einem Punkt, und Timage.canvas.lineto(X,Y) zieht eine Linie zu diesem Punkt, von dem Punkt aus, den du vorher mit moveto oder lineto bestimmt hast (lineto behinhaltet ein moveto)


Beispiel:

Delphi-Quellcode:

image1.canvas.moveto(2435,234);
image1.canvas.lineto(1,1);

zieht eine Linie von [2435|234] zu [1|1].

damit dürftest du auch keine Probleme haben Achsen, Raster zu zeichnen