Agrandir saisie fichier binaire [Résolu]

Messages postés
3
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
5 août 2011
- - Dernière réponse : cs_Duffer
Messages postés
3
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
5 août 2011
- 5 août 2011 à 20:54
Bonjour

J'espère ne pas commettre d'impair pour mon premier post ici.

Voilà j'ai un petit souci. Je suis entrain de créer un petit programme et j'ai un souci. Dans ce dernier, je voudrais insérer un texte qui n'a pas une longueur fixe dans un fichier binaire. Quand la partie de mon texte fait moins de 15 caractères, je n'ai pas de problème car l'emplacement fait 15 caractères. Or mon texte peut monter à 30 caractères et c'est bien là mon problème.

J'aimerais savoir s'il est possible d'agrandir cette zone de saisie et de l'adapter suivant la longueur de mon texte ?

Cordialement Duffer

Je vous copie ma procédure :

Function Crop(S:String):string;
begin while system.Pos(#0,S)>0 do Delete(S,system.Pos(#0,S),1); Crop:=S; end;

procedure TForm1.Button1Click(Sender: TObject);
 var
  left, right, data : string;
  tmp_file : TextFile;
  f: file;
  i, nb_cararctere : integer;
begin
  AssignFile(F,'d:\Test\2.gps');
  Reset(F, 1);
  Seek(F, $00004E8C);

  nb_cararctere:= length(crop(Edit1.Text)); //Nb de caractere present dans le mot
    AssignFile(tmp_file, 'd:\Test\Test.txt');
    ReWrite(tmp_file);
    for i:= 1 to nb_cararctere do
    begin
      left:= (LeftStr((crop(Edit1.Text)),i)); 
      right:= (rightStr(left,1));
      Write(tmp_file, right+#00);  
      data := right+#00;

      Blockwrite(F, data[1], Length(data));
    end;
  CloseFile(tmp_file) ;
  CloseFile(f);
 end;
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5
3
Merci
Salut,

regarde cette source:
http://www.delphifr.com/codes/INITIATION-FICHIER-SAUVEGARDE-BINAIRE_38197.aspx

A+


Composants Cindy pour Delphi

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 131 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_MAURICIO
Messages postés
3
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
5 août 2011
0
Merci
Un grand merci, un lien très utile !
Commenter la réponse de cs_Duffer
Messages postés
3
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
5 août 2011
0
Merci
Bon je vois comment je vais procéder avec les Tfilestreams. Par contre j'ai une question sur ces dernières, comment puis-je faire pour couper un fichier en 2 ?
Ce que je veux faire c'est copier la première partie ($00000000 -> $00004E8C) insérer mon texte, puis copier la dernière partie ($00004EB8 -> à la fin du fichier).
Commenter la réponse de cs_Duffer