Problem mit einem Diagramm

[pszopp]

Hallo KosMottchen,

Zitat von KosMottchen:

Delphi-Quellcode:

{$R *.dfm}

Procedure stDiagramm (s,t:integer);
begin
  t:=t+30;
  s:=370-s;
  Form1.Image1.Canvas.LineTo(s,t);
end;
...

Du musst bei
Form1.Image1.Canvas.LineTo(s, t) s und t vertauschen, da t bestimmt auf der x-Achse augetragen werden soll.
Auf jeden Fall solltest du die Werte noch skalieren.
Der Weg nimmt Werte zwischen 0 und 4600 an, und soll auf einer Höhe von 370 gezeichnet werden.
Sobald der Weg den Wert von 370 überschreitet, wird außerhalb des Canvas gezeichnet.

Hier mal ein bisßchen Pseudo-Code, der hoffentlich weiterhilft :-D

Skalierung von s:
s := Round(s / (MaxS - MinS) * ZeichenHöhe);

Skalierung von t:
t := Round(t / (MaxT - MinT) * ZeichenBreite);


Gruß,
pszopp