Einzelnen Unicodestring an Datei anhängen

[gro]

Hallo Leute
danke für die schnellen Antworten.

Habe auf die schnelle folgendes versucht:

Code:

      szFile := 'Logfile.log';
      szLogline := 'Ģenerē vieną įmonė читаете вы его! ÆàëîáûÎáñëóæèâàíèå';

      // funktioniert
      aFileList := TStringlist.Create;
      if (FileExists(szFile) = TRUE) then aFileList.LoadFromFile(szFile);
      aFileList.Text := aFileList.Text + szLogline;
      aFileList.SaveToFile(szFile, Encoding.Unicode);
      aFileList.Free;

      // funktioniert nicht  
      AssignFile(F1, szFile);
      Append(F1);
      aStream := TStringStream.Create(szLogline, Encoding.Unicode);
      writeln (F1, aStream.DataString);
      Closefile (F1);
      aStream.Free;

      //funktioniert auch nicht
      AssignFile(F1, szFile);
      Append(F1);
      writeln (F1, UTF8Encode(szLogline));
      Closefile (F1);

Was mache ich da falsch bzw. wie hänge ich einen Stringstream korrekt an eine bestehende Datei an?

In den ersten 2 Bytes der Datei steht FFFE = UTM16(LE) durch ".SaveToFile(szFile, Encoding.Unicode)

Das Resultat habe ich angehängt

MfG Pit