Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.088 Beiträge
Delphi 12 Athens
|
Re: pointer-zugewiesene Kurven in werden nicht mehr gezeich
13. Apr 2010, 17: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;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
|