Einzelnen Beitrag anzeigen

Benutzerbild von inherited
inherited

Registriert seit: 19. Dez 2005
Ort: Rosdorf
2.022 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Unter Vernachlässigung des Dateientyps Dateien editieren

  Alt 6. Aug 2007, 13:54
Was gefällt dir an Streams nicht? Damit lädst du eine Datei Byteweise in ein Array, wandelst sie in Chars um und fügst sie einem Memotext hinzu:
Delphi-Quellcode:
var fs: TFileStream;
  MyArray: Array of Byte;
  i: Integer;
begin
  fs:=TFileStream.Create('C:\boot.ini', fmOpenRead);
  try
    SetLength(MyArray, fs.Size);
    fs.Read(MyArray[0], fs.Size);
    for i := 0 to High(MyArray) do
    begin
      Memo1.text:=Memo1.Text+Char(MyArray[i]);
    end;
  finally
    fs.Free;
  end;
end;
Nikolai Wyderka

SWIM SWIM HUNGRY!
Neuer Blog: hier!
  Mit Zitat antworten Zitat