Passer d'un String à un dynamic Array et inversement

Bonsoir,

J'ai remarqué que pour qu'une donnée s'écrive correctement dans un fichier avec BlockWrite, il fallait un array of  char (par exemple).

Mais j'ai un soucis, je veux sauvegarder le contenu d'un TRichEdit dans un fichier binaire suivant la structure que j'ai décidé pour ce format, il me faut donc passer du String vers un Array of Char.

Comment faire cela ?

Merci d'avance.

P.S.: Ne connaissant pas à l'avance la taille pour le array of char, je le définit en dynamic, donc il apparait comme un dynamic of char.

Bonsoir,

et si tui écrivais simplement :

RichEdit1.Lines.SaveToFile('c:\monfichier.rtf'')
RichEdit1.Lines.LoadFromFile('c:\monfichier.rtf'')

non ?

cantador

C'est bien pour sauvegarder dans un fichier texte, mais pas dans un binaire.

L'objectif est bien de conserver le fomat.
il fallait bien donner la solution la + simple..
autre piste :
stocker tes données dans un champ BLOB d'une table.

cantador

Salut,

comme ça peut être:

procedure TForm1.Button1Click(Sender: TObject);
var fs: TFileStream;
begin
  fs := TFileStream.Create('Mon_fichier.bin',  fmCreate);
  try
    fs.WriteBuffer(PChar(RichEdit1.Lines.Text)^, Length(RichEdit1.Lines.Text));
  finally
    fs.free;
  end;
end;


 
@+
Cirec

---

Ouais mais là tu utilises les Streams hors j'ai jamais réussi à m'en servir.

ou encore,

procedure TForm1.Button2Click(Sender: TObject);
var fs: TFileStream;
begin
  fs := TFileStream.Create('Mon_fichier.bin',  fmOpenReadWrite);
  try
    fs.Seek(0, soFromEnd);
    RichEdit1.Lines.SaveToStream(fs);
  finally
    fs.free;
  end;
end;

ce code ouvre le fichier 'Mon_fichier.bin' et ajoute le contenu du RichEdit1 à la fin du fichier.

voiolà avec tout ça tu devrais y arriver
 
@+
Cirec

---

ben c'est simple et en plus tu as deux démos

la première crée un le fichier (si il existe déjà il est écrasé)
et la deuxième ouvre le fichier pour lire et ajouter des données c'est simple

c'est comme ce que tu utilises mais en beaucoup mieux

 
@+
Cirec

---

Avec les Stream, c'est sur qu'il y aura pas le soucis d'enregistrement rencontré avec blockWrite qui oblige a passer par des Array of ?