Dateien,vor allem Bilder lassen sich nicht komplett auslesen

[SirThornberry]

das geht mit stream auch (und ist vor allem objectorientierter als "file of char" etc.

Delphi-Quellcode:

var LStream1, LStream2: TStream; 
    LCount: Integer;
    LBuffer: Char;
begin 
  LStream1 := TFileStream.Create('c:\elle1.jpg', fmOpenRead); 
  LStream2 := TFileStream.Create('c:\elle2.jpg', fmCreate); 
  for LCount := 0 to LStream1.Size - 1 do
  begin
    LStream1.Read(LBuffer, 1);
    //jetzt eventuell noch "LBuffer" verändern
    LStream2.Write(LBuffer, 1);
  end;
  LStream2.Free; 
  LStream1.Free; 
end;