Einzelnen Unicodestring an Datei anhängen

[gro]

Ich habe das jetzt so gelöst:

Code:

    if (not FileExists(szFile)) then begin
      ForceDirectories(ExtractFilePath(szFile)) ;
      aList.SaveToFile(szFile, TEncoding.Unicode);
    end
    else begin
      TRY
        FLogStream:= TFileStream.Create(szFile, fmOpenReadWrite or fmShareDenyWrite);
        FLogStream.Seek(0, soFromEnd);
        szLogline := aList.Text;
        FLogStream.Write(Pointer(szLogline)^, Length(szLogline)*SizeOf(Char));
      FINALLY
        FreeAndNil(FLogStream);
      END;
    end;

MfG Pit