Hallo,
ich habe zwei Klassen mit den selben public proceduren.
Die beide Klassen werden eigentlich nur beim erzeugen unterschieden. Je nachdem auf welchen Port die Daten rein kommen.
Jeder Klasse macht natürlich was anderes in Send und Verarbeite.
Diese wollte ich dann einer Generetic Objectlist verwalten. Die scheinen in D2010 ja gut zu funktionieren ?
Delphi-Quellcode:
Type
TProt1 = class
private
procedure MachWasAB;
public
constructor create;
procedure Send(const Buf : Array of byte);
procedure Verarbeite;
end;
TProt2 = class
private
procedure MachWasABC;
public
constructor create;
procedure Send(Const Buf : Array of Byte);
procedure Verarbeite;
end;
Var
ClientList: TObjectList<TProt1>;
Delphi-Quellcode:
MAIN
ClientList:=TObjectList<TProt1>.create;
........
if Port = 300 then
ClientList.Add(TProt2.create) // das geht natürlich nicht
else
ClientList.Add(TProt1.create);
........
ClientList[i].Send(Data];
Da gibt es doch bestimmt eine bessere Lösung dafür ?
Besten Dank