Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.224 Beiträge
 
Delphi 12 Athens
 
#6

Re: pointer-zugewiesene Kurven in werden nicht mehr gezeich

  Alt 13. Apr 2010, 16:43
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;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat