EOF beendet das Einlesen einer Datei vorzeitig

[himitsu]

TStrings/TStringList hält sich an die Speicherbedingungen für PChar (0-terminitere Strings aus WinAPI/C++).

Eine "normale" Textdatei enthält eigentlich keine #0, aber ob und wie ein(e) Programm/Komponente die "Daten" in einer Datei interpretiert kann unterschiedlich sein.
TStrings/TStringList reagiert "standardmäßig" nunmal auf gewisse Zeichen, wie eben #0, #10 und #13, denn es verhält sie wie TMemo, dessen interne Windows-Komponente nunmal mit PChar arbeitet.

[Mavarik]

Zitat von Sir Rufo:

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

Nein das kann man so nicht stehen lassen... Da Du mit einer Null nur maximal einen Zustand beschreiben kannst, must Du dich bei der Interpretation auch auf maximal
einen Zustand festlegen...

Ich bin ja für die Killerbienen...

[Sir Rufo]

Zitat von Mavarik:

Zitat von Sir Rufo:

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

Nein das kann man so nicht stehen lassen... Da Du mit einer Null nur maximal einen Zustand beschreiben kannst, must Du dich bei der Interpretation auch auf maximal
einen Zustand festlegen...

Ich bin ja für die Killerbienen...

Ja 0 beschreibt nur einen Zustand innerhalb eines Kontexts. Da aber der Kontext unbekannt ist wo dieser Zustand definiert ist kann es sich eben um jeden beliebigen Kontext und somit um jeden beliebigen Zustand handeln.

[Grayknife]

Nochmal eine andere sachen, wollte keinen neuen Thread dafür erstellen

Immer lese ich, wenn man irgendwas extern lädt, oder auch intern:

Delphi-Quellcode:

 Bild1:=TBitmap.Create;     //Bild1 wird erstellt.
 Try
 Bild1.LoadfromFile(ExtractFilepath(ParamStr(0)) + 'Items\Bild1.bmp');  //Bild1 wird geladen.
 Finally
 Bild1.Free;
 End;

-> Warum denn diese Try Finally Schleife, und warum muss man das Bild am Ende wieder freigeben?

-> Als ich heute mein Programm öffnen wollte, hat mir Delphi gesagt: RLINK32: Out of memory! Hat/Kann das was damit zu tun haben, dass ich Bilder nicht freigebe?
-> Als ich gestern gesehen habe, das man Icons dem Programm hinzufügen kann, habe ich das gleich gemacht, jeder Form über dem Objektinspektor. Später habe ich gesehen, das man über Projekt->Optionen->Anwendung->Symbol->Symbol laden , das ebenfalls machen kann, und sicherheitshalber auch nochmal da das Symbol hinzugefügt habe. Aber ich glaube das war nicht so gut
Denn es kommt auch der Fehler: Doppelte Ressource (...,...)
-> Man muss doch sicher alles freigeben, auch Textfiles und und und, oder?

[DeddyH]

Zitat von Grayknife:

Nochmal eine andere sachen, wollte keinen neuen Thread dafür erstellen

Das solltest Du aber, denn die Frage hat ja mit dem Thread-Thema nichts mehr zu tun.

[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...