Ok langsem lerne ich.
Danke schon mal Blup. Ihc wußte das Instanzen Objekte darstellen und wollte das mach um die Adresse vergleichen zu können.
Schließlich ist mein problem folgendes im EventHandler.
Der Vergleich mit dem ich Quelle meines Events erwischen will passt nicht.
Habe auch schon @I = @E probiert bringt nichts.
Langsam habe ich den verdacht das mir die TList den Ärger bereitet.
Delphi-Quellcode:
procedure TFormChart(Sender:TObject; Value:Double)
var I:Integer;
begin
for I := 0 to FItemLineSeries.Count - 1 do
begin
if FDeviceList[I].Item = TSpsItem(Sender) then
begin
FItemLineSeries[I].Data.Add(data); // Wert anfügen;
break;
end;
end;
end;
Hier nochmal das Grundgerüst
Delphi-Quellcode:
Type TFormMain = class(TForm)
DeviceList : TList<TDevice>;
end;
type TDevice = class
ItemList : TList<Item>;
end;
type TItem = class
public Text : String;
end;
procedure TFormMain.Create()
var d:TDevice;
i:Titem;
begin
DeviceList := TList<TDevice>.Create;
d := TDevice.create;
DeviceList.Add(d);
i:=TItem.Create;
i.Text = IntToHex(integer(@i),8);
d.ItemList.add(i);
end;