EOF beendet das Einlesen einer Datei vorzeitig

[dGeek]

Habe das schon alles durch.

In Notepad++ wird mir das verdächtige Zeichen als NUL angezeigt, es kann aber nur ein #26, also EOF sein.
Denn selbst ein Stream hört dort auf zu lesen.

Edit:
was ich noch dazu sagen sollte ist, dass die Datei kein BOM hat!

[Sir Rufo]

Dann hast du da eine Zauberdatei, die eine Aversion gegen Delphi hat

Ein TFileStream kann die Datei rauf und runter lesen und zwar jedes einzelne Byte (und ich sage Byte und nicht String)

[dGeek]

Ich kann die Datei extrem gekürzt mit genau diesem Zeichen mal hier rein stellen wenn du möchtest.

[dGeek]

Datei mit seltsamen Zeichen in Zeile 4. Mit Notepad++ öffnen oder in Delphi einlesen.
Siehe Anhang.

Delphi-Quellcode:

sl := TStringList.Create;
    try
      sl.LoadFromFile(aFile);
      showmessage(IntToStr(sl.Count - 1));
      for i := 0 to sl.Count - 1 do
      begin
        showmessage(sl.Strings[i]);
      end;
    finally
      sl.Free;
    end;

[Mavarik]

Zitat von dGeek:

Datei mit seltsamen Zeichen

Dann mach doch einfach so etwas:
Ausnahmsweise per Stream und nicht wie sonst per Blockread/Write

Delphi-Quellcode:

  Procedure CorrectFile(F:String);
  var
    MS : TMemoryStream;
    I  : Integer;
    P  : PByte;
  begin
    MS := TMemoryStream.Create;
    try
      MS.LoadFromFile(F); // geändert

      MS.Position := 0;
      P := MS.Memory;
 
      For i:=0 to MS.Size-1 do
        begin
          if P^ = $1A then // Dateiende
            P^ := $20;
          inc(p);
        end;

      MS.SaveToFile(F); // geändert
    finally
      MS.Free;
    end;
  end;

oder halt klassisch

Delphi-Quellcode:

  Procedure CorrectFile(F:String);
  var
    FD      : File;
    Buffer  : Array of byte;
    Size,I  : Integer;
  begin
    AssignFile(FD,F);
    Reset(FD,1);
    try
      Size := FileSize(FD);

      Setlength(Buffer,Size);
      Blockread(fd,Buffer[0],Size);
      Seek(FD,0);

      For i:=0 to Size-1 do
        if Buffer[i] = $1A then
          Buffer[i] := $20;

      Blockwrite(FD,Buffer[0],Size);
    finally
      Closefile(FD);
    end;
  end;

Mavarik

[DeddyH]

Ein paar Ressourcenschutzblöcke wären nicht schlecht, und kann man sich die erste FileStream-Instanz nicht sparen und stattdessen LoadFromFile des MemoryStream nehmen, oder überseh ich da etwas?

[Mavarik]

Zitat von DeddyH:

Ein paar Ressourcenschutzblöcke wären nicht schlecht, und kann man sich die erste FileStream-Instanz nicht sparen und stattdessen LoadFromFile des MemoryStream nehmen, oder überseh ich da etwas?

Stimmt... War bei mir ein compressed Stream... daher... Copy Buffer...

[Sir Rufo]

Zitat von dGeek:

Ich kann die Datei extrem gekürzt mit genau diesem Zeichen mal hier rein stellen wenn du möchtest.

Danke, soweit bin ich schon, dass ich mir eine Datei erzeugen kann, wo ein Byte 00 ist. Aber du solltest dir die Datei mal mit einem Hex-Editor anschauen.

Wenn du keinen Hex-Editor hast, dann kannst du dir ganz schnell selber einen bauen. Mit TFileStream die Datei öffnen und jedes Byte in Hex-Darstellung anzeigen lassen.

[dGeek]

Ok 00 sehe ich. Dann ist es doch nicht wie vermutet ein #26.

Was bedeutet dieses 00 denn nun? EOF ja wohl nicht, nehme ich an.

Edit: Frage hat sich gerade geklärt.

[Sir Rufo]

Zitat von dGeek:

Ok 00 sehe ich. Dann ist es doch nicht wie vermutet ein #26.

Was bedeutet dieses 00 denn nun? EOF ja wohl nicht, nehme ich an.

Es kann alles bedeuten: Angriff der Killerbienen, Invasion vom Mars, 42-42, wieviel Lust ich heute zum Aufräumen habe, ...

Die wirkliche Bedeutung kommt erst durch den Kontext. Einfach nur 0 sagt nur 0 aus