Größe von TStrings in Byte ermitteln

[DevidEspenschied]

Hallo,

ich lese eine Datendatei zur schnelleren Bearbeitung in eine Stringliste vom Typ TStrings ein und möchte gerne anhand der Stringliste erfahren, wie groß die eingelesene Datei in Byte ist.

Leider definiert die Stringlist-Klasse keine entsprechende Funktion und ich habe nur Funktionen gefunden, um die Anzahl der Strings auszulesen. Habe ich da etwas übersehen oder muss ich wirlich für jeden Eintrag in der Stringlist die Länge bestimmen und diese zu einer Größenvariable addieren?

Danke schon mal für die Hilfe.

[Luckie]

Anzahl der enthaltenen Zeichenketten mal Länge der Zeichenketten.

Nachtrag: Und eventuell noch die Anzahl der Zeilenumbrüche (Linefeed, Carriagereturn) dazu addieren.

[DeddyH]

Und das Ganze mit SizeOf(Char) multiplizieren, sonst kommt bei Unicode ein falsches Ergebnis raus.

[edit] Müsste doch auch mit Length(Stringlist.Text) * SizeOf(Char) zu machen sein, das wäre zumindest einfacher. [/edit]

[Luckie]

Stimmt ich habe die Text Eigenschaft vergessen.

[p80286]

Und was spricht gegen filesize ?
Gruß
K-H

[Christian Seehase]

Zitat:

Zitat von DeddyH (Beitrag 1092058)

[edit] Müsste doch auch mit Length(Stringlist.Text) * SizeOf(Char) zu machen sein, das wäre zumindest einfacher. [/edit]

Das funktioniert nur bedingt, nämlich dann, wenn die Zeilen #13#10 als Zeilenvorschub haben, und die letzte Zeile mit #13#10 abgeschlossen wird.
Wenn man die Eigenschaft Text verwendet werden alle Zeilenvorschübe auf #13#10 angepasst (auch, wenn in der Datei evtl. nur #10 verwendet wird), und die letzte Zeile wird auch mit #13#10 beendet (auch wenn die Datei am letzten Zeichen der letzten Zeile ohne weiteren Zeilenvorschub endet.)

Beispiel:

Delphi-Quellcode:

const
  _sContent = 'Zeile1'#10'Zeile2'#10'Zeile3';

var
  sl : TStringList;

begin
  sl := TStringList.Create;
  try
    ShowMessage(IntToStr(Length(_sContent)));
    sl.Text := _sContent;
    ShowMessage(IntToStr(Length(sl.Text)));
  finally
    sl.Free;
  end;
end;

Erste Ausgabe 20, zweite 24.
Das gilt auch, wenn man die Daten aus einer Datei einliest.
Deswegen kann man mit TStringList auch so schön Dateien mit die #10 als Zeilenvorschub haben durch laden und speichern mit #13#10 versehen :wink:

[himitsu]

Und nicht zu vergessen die Zeichenkodierung der Datei.
Also nein, du kannst nicht Anhand der StringList auf die Größe der Datei zurückschließen.

[DeddyH]

Wobei p80286 schon Recht hat, wozu mit TStringlist rumhantieren, wenn das über FileSize einfacher geht? Oder von hinten durch die Brust ins Auge: einen Stream erstellen, Datei laden und Stream.Size auslesen :stupid:

[DevidEspenschied]

FileSize geht leider nicht, da es sich um eine verschlüsselte Datei handelt, die entschlüsselt und dann ins StringList eingelesen wird. Die Dateigrößen zwischen verschlüsselter und entschlüsselter Datei sind nicht gleich.

Sobald die Datei entschlüsselt ist, steht in ihr die entschlüsselte Dateigröße, die ich mit der tatsächlichen gegenprüfen muss. Deswegen meine Frage nach der Größe...

Was ich auch ausschließen kann ist Unicode, jedes Zeichen ist also als AnsiChar codiert. Insofern werde ich wohl die Anzahl der StringList-Einträge und die jeweiligen Zeichenlängen durchgehen müssen. Hätte ja sein können, dass es einfacher geht.

[DeddyH]

Aber auch damit bekommst Du u.U. nicht die exakte Dateigröße, wie oben bereits demonstriert.

[Klaus01]

Hallo,

warum legst Du nicht die entschlüsselten Daten in einen Stream (MemoryStream)ab.
Die Größe wäre dann Stream.size.

Grüße
Klaus

[DeddyH]

Streams hatte ich auch schon erwähnt, aber es bleibt das Problem mit den Zeilenumbrüchen. Nun kommt es darauf an, wie genau er die Angabe braucht.

[Klaus01]

.. sollten im Stream der entschlüsselten Datei die Zeilenumbrüche nicht gleich der Zeilenumbrüche der Originaldatei sein?

(Habe Deinen Hinweis bzgl. Streams überlesen :o( muss am Jetlag liegen)
Grüße aus Seoul
Klaus

[DeddyH]

Achso, Du meinst, bevor die Daten in der Stringliste landen? In dem Fall sollte das passen, denke ich.

[DevidEspenschied]

Ich werde mal versuchen, die StringList-Einträge durchzuzählen und die Längen zu addieren. Möglicherweise erhalte ich genau die Dateigröße. Infos folgen...

Ein MemoryStream ist mir auch schon in den Sinn gekommen, allerdings greifen meine Routinen zeilenweise auf die entschlüsselte Datei zu (quasi wie eine sehr lange INI-Datei), und das scheint mit Streams umständlich wenn nicht sogar unmöglich zu sein. Kann mich aber auch irren...

[Satty67]

Irgendeine Funktion/Methode entschlüsselt doch die Quelle. Warum nicht gleich da den Output zählen und am Ende übergeben?

[DevidEspenschied]

So ich habe die Lösung: Durchzählen der StringList plus 2 Zeichen pro Zeile (#10, #13). Das ergibt genau die Dateigröße.

[mleyen]

Delphi-Quellcode:

function StrLstSize(const AStrLst: TStringList): Cardinal;
begin
  if Assigned(AStrLst) then
    Result := Length(AStrLst.Text) * SizeOf(Char)
  else
    Result := 0;
end;

[himitsu]

Zitat:

* SizeOf(Char)

seine Datei ist als ansi gespeichert und nicht als Unicode

[DevidEspenschied]

AnsiChar anstatt Char, habe ich schon geändert.

[DeddyH]

*Buh* Codeklau :tongue: