Brauche Hilfe zur Abfrage

[Blup]

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;