StreamWrite erzeugt nur 0 Byte-File

[DevidEspenschied]

Danke, das Beispiel funktioniert einwandfrei.

Nun habe ich bspw. den Fall, die zuvor geschriebenen Testmusterdaten wieder lesen und überprüfen zu wollen, wozu ich einerseits die Create-Zeile wiefolgt abändere:

lStream := TFileStream.Create(AFilename, fmOpenRead); und andererseits eine lokale Stringvariable namens ReadMuster deklariere sowie ReadBuffer einsetze:

Delphi-Quellcode:

CONST TestMuster = '#abcdefghijklmnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ+';
VAR ReadMuster : STRING;
BEGIN
...
DateiStream.ReadBuffer(ReadMuster, lReadCount);
IF ReadMuster <> TestMuster THEN ShowMessage('Gelesenes Muster stimmt nicht mit dem Testmuster überein.');
...

Beim Debuggen wird diese Funktion auch durchgeführt, aber ich kann auf den String ReadMuster nicht zugreifen (hier erscheint eine Exception). Das beginnt mit der IF-Abfrage direkt nach ReadBuffer. Wie kann man das am besten lösen ?