Hallo,
in meinem neuen Prog werden pointer-zugewiesene Kurven nicht mehr in einem Chart gezeichnet.
Delphi-Quellcode:
unit test;
interface
uses ...
type
...
TF_Test =
class(TForm)
....
CH_Test:TChart;
Kurv01: TFastLineSeries;
Kurv02: TFastLineSeries;
Kurv03: TFastLineSeries;
procedure FormCreate(...);
procedure Button1: TButton;
procedure Button2: TButton;
....
var
F_Test: TForm;
....
Kurv:
array[1..3]
of ^TFastLineSeries;
implementation
...
procedure TF_Test.FormCreate(...);
begin
....
Kurv[1] := @Kurv01;
Kurv[2] := @Kurv02;
Kurv[3] := @Kurv03;
....
end;
procedure TF_Test.Button1Click(...);
begin
...
Kurv[1].AddXY(1,1);
Kurv[1].AddXY(2,4);
Kurv[1].AddXY(3,9);
...
// geht nicht - unklar !
end;
procedure TF_Test.Button2Click(...);
begin
...
Kurv01.AddXY(1,1);
Kurv01.AddXY(2,4);
Kurv01.AddXY(3,9);
...
// geht gut
end;
Mit "festverdrahtetem" Code in
Button2 läuft die Kurvenzeichnung
gut,
mit
Button1 läuft die Kurvenzeichnung
nicht!
Irgendwie für mich unklar,
in meinen anderen Progs läuft dieser Code.
Falls jemand etwas sieht, weiss oder vermutet...dem vielen Dank!
Grüße
EB.