AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Größe von TStrings in Byte ermitteln

Ein Thema von DevidEspenschied · begonnen am 30. Mär 2011 · letzter Beitrag vom 31. Mär 2011
Antwort Antwort
Seite 1 von 3  1 23      
DevidEspenschied

Registriert seit: 7. Sep 2006
Ort: Berlin
439 Beiträge
 
Delphi 12 Athens
 
#1

Größe von TStrings in Byte ermitteln

  Alt 30. Mär 2011, 17:06
Delphi-Version: XE
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.
Devid
Devid Espenschied
Pre-sales Consultant
Embarcadero Germany GmbH
germany.info@embarcadero.com

Kein Support per PN
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

AW: Größe von TStrings in Byte ermitteln

  Alt 30. Mär 2011, 17:08
Anzahl der enthaltenen Zeichenketten mal Länge der Zeichenketten.

Nachtrag: Und eventuell noch die Anzahl der Zeilenumbrüche (Linefeed, Carriagereturn) dazu addieren.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#3

AW: Größe von TStrings in Byte ermitteln

  Alt 30. Mär 2011, 17:14
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]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

AW: Größe von TStrings in Byte ermitteln

  Alt 30. Mär 2011, 17:16
Stimmt ich habe die Text Eigenschaft vergessen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Größe von TStrings in Byte ermitteln

  Alt 30. Mär 2011, 17:58
Und was spricht gegen filesize ?
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Größe von TStrings in Byte ermitteln

  Alt 30. Mär 2011, 18:07
[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
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#7

AW: Größe von TStrings in Byte ermitteln

  Alt 30. Mär 2011, 18:30
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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#8

AW: Größe von TStrings in Byte ermitteln

  Alt 31. Mär 2011, 09:18
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
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
DevidEspenschied

Registriert seit: 7. Sep 2006
Ort: Berlin
439 Beiträge
 
Delphi 12 Athens
 
#9

AW: Größe von TStrings in Byte ermitteln

  Alt 31. Mär 2011, 11:12
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.
Devid
Devid Espenschied
Pre-sales Consultant
Embarcadero Germany GmbH
germany.info@embarcadero.com

Kein Support per PN
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#10

AW: Größe von TStrings in Byte ermitteln

  Alt 31. Mär 2011, 11:15
Aber auch damit bekommst Du u.U. nicht die exakte Dateigröße, wie oben bereits demonstriert.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz