pointer-zugewiesene Kurven in werden nicht mehr gezeichnet

[EccoBravo]

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.

[Namenloser]

Von welchem Typ ist TFastLineSeries? Ist es eine Klasse? Wenn ja, dann lass einfach mal den kompletten Pointerkram weg, denn ein Objekt ist bereits in Pointer.

Und was genau heißt "geht nicht"? Gibt es eine Fehlermeldung?

[EccoBravo]

TFastLineSeries wird vom Chart-Editor gefiefert.
Wenn ich im Chart-Editor eine Kurve hinzufüge wird diese im Object TF_Test eingetragen.

Wie äußert sich der Fehler:
zur Laufzeit tut sich nichts, das Diagramm bleibt einfach leer.

Danke

EB.

[himitsu]

Zitat:

Zitat von EccoBravo

TFastLineSeries wird vom Chart-Editor gefiefert.
Wenn ich im Chart-Editor eine Kurve hinzufüge wird diese im Object TF_Test eingetragen.

dann versuch mal das

Delphi-Quellcode:

*   Kurv: array[1..3] of TFastLineSeries;

implementation

...

procedure TF_Test.FormCreate(...);
begin
    ....
    Kurv[1] := Kurv01;
    Kurv[2] := Kurv02;
    Kurv[3] := Kurv03;
    ....
end;

[EccoBravo]

Hallo himitsu,

leider negativ

EB.

[himitsu]

Und was würder der Dialog sagen?

Delphi-Quellcode:

*   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.Button3Click(...);
begin
    if (Kurv[1] <> Kurv01) or (Kurv[2] <> Kurv02) or (Kurv[3] <> Kurv03) then
      ShowMessage(Format('Die Referenzen haben sich geändert'#13#10'%x %x'#13#10
        + '%x %x'#13#10'%x %x', [Kurv[1], Kurv01, Kurv[2], Kurv02, Kurv[3], Kurv03]));
end;