Länge eines Strings vs. verbrauchter Speicherplatz

**martinf16**

Ich habe mal eine allgemeine Frage zu Strings und dem Speichern von Strings:

Wenn ich einen String habe und dessen Länge mit length() bestimme, komme ich auf einen anderen Wert als dieser String später als Speicherplatz benötigt. Wie kann das sein?

Eigentlich müsste die Länge des Strings der Anzahl von Bytes entsprechen - aber der verwendete Speicher ist immer etwas größer.

**Medium**

Speicherplatz wo?

**himitsu**

Zitat:

length() bestimme, komme ich auf einen anderen Wert als dieser String später als Speicherplatz benötigt

Wie hast du denn diesen Speicherverbrauch bestimmt?

Es kommt erstmal auf die Delphi-Version an.
Ab Delphi 2009 ist jedes Zeichen 2 Byte lang ... eben Unicode

Bei Length('') sind grundsätzlich alle Strings 4 Byte, da sie nur aus dem internen NIL-Pointer bestehen. (abgesehn vom ShortString)

ShortString = 256 Byte = 1 LängenByte + 255 Zeichen
String[x] = x+1 Byte = 1 LängenByte + x Zeichen
String = SizeOf(Pointer) + 2 * SizeOf(Integer) + (Length(S) + 1) * SizeOf(Char)
AnsiString = SizeOf(Pointer) + 2 * SizeOf(Integer) + (Length(S) + 1) * SizeOf(AnsiChar)
UnicodeString = SizeOf(Pointer) + 2 * SizeOf(Integer) + (Length(S) + 1) * SizeOf(WideChar)
WideString = SizeOf(Pointer) + 1 * SizeOf(Integer) + (Length(S) + 1) * SizeOf(WideChar)

Ansi-/UnicodeString = internerZeiger + LängenAngabe + Referenzzähler + (Länge + abschließende#0) * Zeichengröße

Dazu kommt dann noch die Defragmentierung des jeweiligen SpeicherManagers und dessen Verwaltungsdaten
(der WideString wird von der OLE32 verwaltet ... z.B. SysAllocStringLen aus OleAut32.dll)

**martinf16**

Speicherplatz meint wenn der String als Textdatei abgespeichert wird.

Also zum Beispiel: String im Memo (x Zeichen) -> SaveAsFile -> Datei.txt (x Bytes)

@himitsu:
Die Strings werden nicht als Unicode abgespeichert.
Bestimmt habe ich den Speicherbedarf dann im Explorer über die Dateiinformationen.
Ich schau mal ob ich mit deinen Formeln die Berechnung hinbekomme..

Ähm, wie bestimme ich denn SizeOf(Pointer) und SizeOf(Integer) wenn der Text einfach nur in einem Memo vorliegt? Also zum Beispiel wenn ein Benutzer einen Text eingeben kann und dann eine Vorschau angegeben wird, wie viel dieser Text an Speicher verbrauchen wird.

**himitsu**

in der Datei befindet sich ja nur der String-Inhalt

Zitat von martinf16:

Speicherplatz meint wenn der String als Textdatei abgespeichert wird.

Also zum Beispiel: String im Memo (x Zeichen) -> SaveAsFile -> Datei.txt (x Bytes)

OK, dann mal andersrum wie genau hast dann die Länge des/der Strings im Memo bestimmt?

Length(Memo.Text)?

**martinf16**

Genau, mit length(memo1.text).

Ist das falsch?

**himitsu**

markieren

Delphi-Quellcode:

			Memo1.Lines.SaveToFile('a.txt');

Label1.Caption := IntToStr(Length(Memo1.Text));

Also bei mir stimmen Dateigröße und der Wert im Label überein.

ich hätte jetzt maximal 2 Byte mehr erwartet (Zeilenumbruch nach der letzen Zeile ... die normale TStringList hat da ein paar kleine Problemchen)

**martinf16**

Oh.. Das stimmt bei mir auch überein, wie ich gerade bemerkt habe. Offenbar passiert der Fehler beim Laden der Datei.
Also wenn ich eine Datei zum Beispiel mit dem Editor erstellt habe, diese lade und dann wieder abspeichere, ändert sich die Größe. Zum Laden verwende ich folgende Funktion:

zusammenfalten · markieren

Delphi-Quellcode:

			try

  AssignFile(Datei, 'dateiname');

  Reset(Datei, 1);

  repeat

    BlockRead(Datei, Buffer, SizeOf(Buffer), NumRead);   //Buffer ist array[1..1024] of Char

    temp:=temp+Buffer;

  until

    (NumRead < SizeOf(Buffer));

finally

  CloseFile(Datei);

end;

result:=temp;

Ich hatte nicht gedacht, dass der Fehler beim Laden passiert, da die Datei im Programm richtig angezeigt wird. Mache ich da irgendetwas falsch?

**himitsu**

Unterschiedliche Zeilenumbrüche

Das Memo verwendet die #13#10 (Windows), wärend einige Editoren nur eine #10 (Linux) speichern,
dabei wird dieses beim Einlesen umgewandelt.

**martinf16**

Ok, Danke. Daran kann es liegen. Und die Prozedur zum Einlesen birgt nicht irgendwelche andere Fehlerquellen?

Wenn ich nämlich die Datei immer wieder lade und speichere wird sie bei jedem mal größer.. Das dürfte ja auch nicht sein.

Edit: Ich hab den Fehler. Die Funktion zum Laden der Datei scheint zu viel zu laden, am Ende befinden sich immer noch Stellen von anderen Dateien. Kann jemand sagen was daran falsch ist???

Länge eines Strings vs. verbrauchter Speicherplatz

Länge eines Strings vs. verbrauchter Speicherplatz

Re: Länge eines Strings vs. verbrauchter Speicherplatz

Re: Länge eines Strings vs. verbrauchter Speicherplatz

Re: Länge eines Strings vs. verbrauchter Speicherplatz

Re: Länge eines Strings vs. verbrauchter Speicherplatz

Re: Länge eines Strings vs. verbrauchter Speicherplatz

Re: Länge eines Strings vs. verbrauchter Speicherplatz

Re: Länge eines Strings vs. verbrauchter Speicherplatz

Re: Länge eines Strings vs. verbrauchter Speicherplatz

Re: Länge eines Strings vs. verbrauchter Speicherplatz

Forumregeln

Medium Registriert seit: 23. Jan 2008 3.679 Beiträge Delphi 2007 Enterprise	#2 Re: Länge eines Strings vs. verbrauchter Speicherplatz 14. Sep 2009, 03:14 Speicherplatz wo? "When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
	Zitat

martinf16 Registriert seit: 26. Aug 2007 99 Beiträge Turbo Delphi für Win32	#6 Re: Länge eines Strings vs. verbrauchter Speicherplatz 14. Sep 2009, 03:37 Genau, mit length(memo1.text). Ist das falsch?
	Zitat