Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Unter Vernachlässigung des Dateientyps Dateien editieren

  Alt 6. Aug 2007, 13:50
Warum willst du nicht mit FileStream arbeiten? Wäre doch viel einfacher.

1. Umwandeln von Byte in Char und umgekehrt geht mit "ord" bzw "chr"

2. ganz simpel
Delphi-Quellcode:
var f:file of byte
    x:array of byte;
    i:integer;


//laden
  assignfile(f,'xyz.dat');
  reset(f);
  setlength(x,filesize(f));
  for i:=0 to high(x) do read(f,x[i]);
  closefile(f);

//arbeiten mit deinem array

//speichern
  assignfile(f,'xyz.dat');
  rewrite(f);
  for i:=0 to high(x) do write(f,x[i]);
  closefile(f);

end;
Edit: untypisierte Dateien könnten schneller gehen (aber hier bin ich mir nicht sicher, oder anders gesagt: ungetestet)
Delphi-Quellcode:
var f:file;
    gelesen:integer;

//laden
  assignfile(f,'xyz.dat');
  reset(f,128);
  setlength(x,filesize(f)*128);
  blockread(f,x[0],length(x),gelesen);
  setlength(x,gelesen);
  closefile(f);


//speichern dann eben ähnlich nur mit blockwrite
Edit2: Na hab ich mir doch gedacht (bei filesize sollte man aufpassen)
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat