Wenn deine Werte in einem bestimmten Bereich z.B. 0,0 .. 99,0°C liegen und du diese auf Bildpunkte von 0..500 abbilden möchtest, müssen die Werte auf diesen Bereich erweitert werden.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
Temperatur: Double;
i, x, y: Integer;
begin
for i := 0 to Listbox1.Items.Count - 1 do
begin
x := (i + 1) * 30;
Temperatur := StrToFloat(ListBox1.Items.Strings[i]); // Kommazahl
y := 500 - Round(Temperatur * 5); // um den Faktor 5 zoomen, dann umwandeln in Ganzzahl
with Paintbox1.Canvas do
begin
if i=0 then
MoveTo(x, y)
else
LineTo(x, y);
end;
end;
end;