Forum: Object-Pascal / Delphi-Language
by Jumpy,
30. Nov 2012
Danke für die Mühe, das sieht tatsächlich so aus, als könnte ich das für meine Zwecke mit nur wenig Anpassung brauchen. Der Trick, auf den ich so nicht gekommen wäre, scheint zu sein, eine eigene Liste als Nachfahre von TList zu bauen und darin die casterei zu verstecken bzw. in deiner Version Pointerrei?
Ich hab normal kein Problem eigene Klassen zu erstellen, mit Vererbung oder Benutzung von...
Forum: Object-Pascal / Delphi-Language
by Jumpy,
29. Nov 2012
Wenn ich schon Generics könnte würd ich das machen, aber ohne ist mir die ganze is/as-Casterei zu lästig (müsste bei meiner momentanen Coderenovierung zuviel anpacken).
Forum: Object-Pascal / Delphi-Language
by Jumpy,
29. Nov 2012
Edit: Fehler gefunden. Diesen Post gerne überspringen und unten weiterlesen!
Hallo und guten Morgen und danke für die Hilfe gestern.
Eine Nacht drüber geschlafen brachte immer noch keine Lösung.
Hab's so geändert, das bei AddCall nun eine globale Zählervariable hochgezählt wird, bei removeCall wird diese wieder runtergesetzt und die Funktion CallCount liest diese nun nur noch aus:
...
Forum: Object-Pascal / Delphi-Language
by Jumpy,
28. Nov 2012
Hier mal wie das Array befüllt und geleert wird. Mag sein, dass die Remove-Methode noch etwas umständlich ist, die hab ich noch nicht überarbeitet, vllt. wird da auch das Array zerschossen?
procedure TTapiLine.AddCall(Call: TTapiCall);
begin
SetLength(priv_Calls,High(priv_Calls)+2);
priv_Calls:=Call;
end;
procedure TTapiLine.AddCall(CallHandle: Cardinal);