Zum Index:
Anscheinend brauchst du den nicht, da du beim Schreiben immer nur hinten anhängen willst. Dann lass doch den Index im Property und in der set-Methode weg.
Den Index bräcuhtest du, wenn du irgendein Element des Arrays ändern willst. Aber du willst ja nur anhängen.
btw.: Warum benutzt du keine Stringliste. Wäre
OOP-konformer, die Array-Lösung wie du sie derzeit umgesetzt hat, wird mit zunehmender Zahl an Elementen langsamer.
Zum Container:
Das hatten wir ja im anderen Thread soweit. Du hast aber getExpDataCount Threadsafe mit begin- und endread ausgeführt?
Und wie gesagt: Du hast TContainer jetzt von TSimpleRWSync abgeleitet. Du kannst ohne Probleme auch von TMultiReadExclusiveWriteSynchronizer (kurz: TMREWSync) ableiten. Dahinter steckt eine andere Art des Synchronisierens (je nach Anwendung ist das eine oder das andere schneller). Die öffentlichen Methoden sind netterweise dieselben. Dadurch muss man sonst nix ändern.
zum Callback:
Hier hast du jetzt eine zweite Variante des Synchronisierens hineingebracht. wenn du bei der schönen ContainerMethode bleiben willst, dann schreibe doch s auch in den Container und starte dort das Callback:
Delphi-Quellcode:
type
TContainer=class(TSimpleRWSync) //oder eben: TContainer=class(TMREWSync)
private
FExpData: TExpData; //Besser: TStringList
Fs:string; //blöder kurzer Name ;-)
function getExpData(i: Integer): String;
procedure setExpData(i:Integer; const Value: String);
function getExpDataCount: Integer;
procedure sets(s:string);
function gets:string;
//und hier die Methoden für den Callback wie in dem Beispiel im letzten Thread
public
procedure appendExpData(Value:string);
property ExpData[i: Integer]: String read getExpData write setExpData;
property ExpDataCount: Integer read getExpDataCount;
property s:string read....
end;