Länge eines Strings vs. verbrauchter Speicherplatz

[alzaimar]

Zitat:

Zitat von martinf16

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???

:glaskugel: Hmm... Oh...Glasskugel...zeig mir den Quellcode dieser Funktion...ohhh....mmmm...

Nee, klappt nicht. martinf16, dein Karma versperrt die Sicht auf den Quellcode. Du müsstest ihn doch ausnahmsweise hier reinposten. Ich weiss, es ist profan und billig, aber anders kommen wir nicht weiter. :zwinker:

[Angel4585]

Zitat:

Zitat von alzaimar

:glaskugel: Hmm... Oh...Glasskugel...zeig mir den Quellcode dieser Funktion...ohhh....mmmm...

*Mich als Glaskugel verkleide*

Ohhh alzaimaar.. hiiieeerr:

Zitat:

Zitat von martinf16

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;

[Blup]

Die Anzahl der gelesenen Byte wird hier überhaupt nicht ausgewertet.
Blockread setzt kein #0 Zeichen ans Ende der gelesenen Daten.
Deshalb wird bei temp := temp + buffer noch zusätzlicher Speichermüll hinter den gelesenen Daten an temp angehängt.

[martinf16]

Zitat:

Zitat von martinf16

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;

Zitat:

Zitat von Blup

Die Anzahl der gelesenen Byte wird hier überhaupt nicht ausgewertet.
Blockread setzt kein #0 Zeichen ans Ende der gelesenen Daten.
Deshalb wird bei temp := temp + buffer noch zusätzlicher Speichermüll hinter den gelesenen Daten an temp angehängt.

Ähm.. Irgendwie steh ich jetzt total auf dem Schlauch?! Was müsste ich denn da noch ergänzen, damit es funktioniert???

[Chris.R]

So sollte es gehen:

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+Copy(Buffer, 1, NumRead);
  until
    (NumRead < SizeOf(Buffer));
finally
  CloseFile(Datei);
end;

result:=temp;

Warum nimmst du eigentlich nicht die LoadFromFile Funktion von TStrings?

Ciao Chris

[martinf16]

Vielen Dank, jetzt funktionierts.

Ich benutze den Code so, aus verschiedenen Gründen. Zum Beispiel gibt LoadFromFile Probleme bei dem Zeichen #0 und nicht alle Dateien müssen auch im Memo angezeigt werden, so dass ein Memo1.Lines.LoadFromFile auch wenig Sinn macht.

[Chris.R]

Es gibt auch TStringList. Damit kannst du auch Text laden und dann entweder über Strings[i] auf einzelne Zeilen zugreifen oder über Text auf den gesamten Text als ein String.

Ciao Chris