TThreadStringList

[Astat]

Hallo Klaus,

EDIT ist nicht richtig, liste ist doch geschützt. Bei Thread #8 Himitsu gehts korrekt weiter
Ja die Liste ist ohne Schutz. Die Liste darf ausserhalb der Classe nicht von mehreren Threads bearbeitet werden.
Der Zugriff muss über die Klassenmethoden erfolgen, darum locklist in den privaten Bereich verschieben, und dessen
Result (Liste) nur innerhalb der Classe verwenden.

Ich würde das in etwa so verwenden.

Delphi-Quellcode:

type
  TThreadStringList = class
    private
      FStringList : TStringList;
      FCriticalSection : TCriticalSection;
    public
      constructor create;
      destructor destroy;
      procedure Add(AItem: AnsiString);
      function Get(AIdx: Integer): AnsiString;
      procedure SaveToFile(AFilePath: AnsiString);
      procedure Remove(AIdx: Integer);
      function Count: Integer;
    end;

implementation

constructor TThreadStringList.create;
begin
  FCriticalSection := TCriticalSection.create;
  FStringList := TStringList.Create;
end;

destructor TThreadStringList.destroy;
begin
  freeAndNil(FStringList);
  freeAndNil(FCriticalSection);
end;

procedure TThreadStringList.add(AItem: AnsiString);
begin
  FCriticalSection.Acquire;
  try
    FStringList.Add(AItem);
  finally
    FCriticalSection.Release;
  end;
end;

function TThreadStringList.get(AIdx: Integer): AnsiString;
begin
  FCriticalSection.Acquire;
  try
    result := FStringList[AIdx];
  finally
    FCriticalSection.Release;
  end;
end;

procedure TThreadStringList.saveToFile(AFilePath: string);
begin
  FCriticalSection.Acquire;
  try
    FStringList.SaveToFile(AFilePath);
  finally
    FCriticalSection.Release;
  end;
end;

procedure TThreadStringList.remove(AIdx: Integer);
begin
  FCriticalSection.Acquire;
  try
    FStringList.Delete(AIdx);
  finally
    FCriticalSection.Release;
  end;
end;

function TThreadStringList.count:Integer;
begin
  FCriticalSection.Acquire;
  try
    result := FStringList.count;
  finally
    FCriticalSection.Release;
  end;
end;

lg. Astat