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;