Datei mit Steuerzeichen in StringList laden?

[SneakyBagels]

Zitat:

TFile.ReadAllText

Auch TFile.ReadAllText hat Probleme mit den .customDestinations-ms-Dateien und zeigt keinen Inhalt an (showmessage)

Zitat:

Wie groß ist denn Stream.Size nach dem laden?

Das weiß ich nicht ich habe wieder alles gelöscht was mit Streams zu tun hatte. Es war vermutlich aber 0.

Zum Vergleich: diese Unit schafft es die Dateien zu lesen
http://www.delphipraxis.net/151898-s...ei-reader.html

[TiGü]

Zitat von SneakyBagels:

Das weiß ich nicht ich habe wieder alles gelöscht was mit Streams zu tun hatte. Es war vermutlich aber 0.

Das Öffnen der IDE dauert in der Regel länger als das einkopieren meines Quelltextes, die Anpassung des Pfades und das Drücken von F9.
So debugge er es hin!

[SneakyBagels]

Size ist nicht 0.
Size entspricht der Dateigröße in Bytes.

[Uwe Raabe]

Zitat von SneakyBagels:

Zitat:

TFile.ReadAllText

Auch TFile.ReadAllText hat Probleme mit den .customDestinations-ms-Dateien und zeigt keinen Inhalt an (showmessage)

Das liegt dann wohl daran, daß das eben keine reinen Textdateien sind und das erste 0-Byte den String terminiert. In dem Fall würde ich dann TFile.ReadAllBytes empfehlen.

[Der schöne Günther]

Haben wir denn eine konkrete Beispiel-Datei? Wenn ich mitten in eine "Text"-Datei ein Nullbyte reinpacke hat ReadAllText damit kein Problem:

Delphi-Quellcode:

uses
   System.SysUtils,
   System.Classes,
   System.IoUtils;
const
   filePath = 'x:\someFile.dat';
   DLE = 16;
   NULL = 0;
var
   bytes: TBytes;
   stream: TStream;
   fileContent: String;
begin
   // 1) Datei schreiben
   TFile.WriteAllText(filePath, 'Vor Steuerzeichen');
   bytes := [DLE, NULL];
   stream := TFile.OpenWrite(filePath);
   try
        stream.Seek(0, TSeekOrigin.soEnd);
      stream.Write(bytes, 2);
   finally
      stream.Destroy();
   end;
   TFile.AppendAllText(filePath, 'Nach Steuerzeichen');

   // 2) Datei lesen (einfach)
   fileContent := TFile.ReadAllText(filePath);
   WriteLn( fileContent.QuotedString());

   ReadLn;
end.

[SneakyBagels]

Zitat:

Haben wir denn eine konkrete Beispiel-Datei?

Ja. Siehe Beitrag #1. Alle Dateien in C:\Users\<name>\AppData\Roaming\Microsoft\Windows\ Recent\CustomDestinations

[TiGü]

Zitat von SneakyBagels:

Zitat:

Haben wir denn eine konkrete Beispiel-Datei?

Ja. Siehe Beitrag #1. Alle Dateien in C:\Users\<name>\AppData\Roaming\Microsoft\Windows\ Recent\CustomDestinations

Er meinte eher sowas wie:
"SneakyBagels, lade doch bitte eine Beispieldatei von DIR hoch, weil bei mir in diesem Ordner 39 Dateien zu finden sind, die zwischen 12 und 25.262 KB groß sind."

[Der schöne Günther]

Vor allem sind das, zumindest bei mir, reine Binärdateien. Irgendwo scheint einmal Text drin zu sein, aber so etwas verwaltet man nicht als String.

[TiGü]

Wahrscheinlich wäre es sinnvoller zu fragen, was Sneaky eigentlich genau erreichen möchte?

Es gibt möglicherweise eine Windowsfunktion für die Information, die er erfahren möchte.