Hallo, ich habe es endlich hinbekommen, Werte, welche in einer Datei gespeichert sind, in ein Array einzulesen. Juhuuuuu
Nun will ich diese über Canvas als Kurve zeichnen lassen, was mir absolut nicht gelingen möchte.
Die Daten aus meinem Array sind dabei jeweils meine Y-Koordinaten.
Erstamal wäre ich total zufrieden, wenn mir mal ne Kurve angezeigt wird, damit ich dann selber weiter gucken kann, über Anregungen, Kopfschütteln und Auslacher wäre ich sehr dankbar !
Delphi-Quellcode:
procedure THixHistoGraph.DrawMeasureValue(const ReadInArray : Array of Real);
var
HistoBackround : TRect;
i : integer;
Range : Double;
begin
HistoBackround := Rect(FGapLeft,
FGapTop,
Width - FGapRight,
Height - FGapBottom + 2);
{Darstellungsfläche eingrenzen}
InflateRect(HistoBackround, -1, -1);
Range := round(Width - FGapRight);
For I:= 1 to round(length(ReadInArray)- 1) do
begin
Canvas.MoveTo(FGapLeft, 500);
Canvas.Pen.Style := FSeriesLineStyle;
Canvas.Brush.Color := FColor;
Canvas.Pen.Color := FSeriesColor;
Canvas.LineTo(FGapLeft * round(Range / length(ReadInArray)), round(ReadInArray[i]));
//ShowMessage(FloatToStr(ReadInArray[i]));
end;
end;