RetourForum Delphi
Nouveau compte - Se connecter - Perdu votre mot de passe?Recherche: Utilisateur - Message

Index > Forum général > Sauvegarder Fichier Texte en (Unicode)Nouveau post - Répondre
Ghanem
visiteur
Message Sauvegarder Fichier Texte en (Unicode) message: éditerle 22/05/16 à 12h34

Bonjour

avec ce code je n'arrive pas a sauvegarder mon fichier texte en Unicode j'ai que des points d'interrogation a la place des lettres

en vous remerciant d'avance

procedure TForm1.Button2Click(Sender: TObject);
var
MonFichier : TextFile;
begin
AssignFile(MonFichier,'test.txt');
Rewrite(MonFichier);
begin
Writeln(MonFichier,memo1.Lines.Text);
end;
CloseFile(MonFichier);
end;

[code]

Ghanem
visiteur
Content Re: Sauvegarder Fichier Texte en (Unicode) message: éditerle 22/05/16 à 13h38


j'ai trouvé ça ,et si y'a mieux je suis preneur Merci


[procedure TForm1.Button4Click(Sender: TObject);
  var
  S: TStrings;
begin
  S := TStringList.Create();
  S.Text:=memo1.Text;
  { ... }
  S.SaveToFile('test.txt', TEncoding.UTF8);
  S.Free
end;]

Ghanem
visiteur
Message Re: Sauvegarder Fichier Texte en (Unicode) message: éditerle 22/05/16 à 14h48

en plus simple

[/
  Memo1.Lines.SaveToFile('test.txt',TEncoding.UTF8);]

JROD
membre
3905 messages
Content Re: Sauvegarder Fichier Texte en (Unicode) message: éditerle 22/05/16 à 21h29

Salut

ok

merci Sourire

Jérôme

Camary
visiteur
Message Re: Sauvegarder Fichier Texte en (Unicode) message: éditerle 05/07/16 à 20h40

Salut,

Avec un composant Memo pour un fichier Aide.txt :

// Ouverture du fichier pour afficher les données déjà saisies dans Memo (et créer ce fichier)
procedure TForm1.OuvertureAide;
var  Ligne : string;
    Texte : string;
    F : TextFile;
begin
// Fichier aide
Memo1.Clear;
AssignFile(F,'Aide.txt');
{$I-}
Reset(F);
{$I+}
if (Ioresult = 0) then
  begin
  Texte :='';
  Repeat  Readln(F,ligne);
  Texte:=Texte+ligne+chr(13)+chr(10);
  Until eof(f);
  CloseFile(f);
  Memo1.Text:= Texte;
  end;
end;


// sauvegarde dans le fichier avec un bouton
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
    F : TextFile;
begin
AssignFile(F,'Aide.txt');
Rewrite(F);
for i:=0 to Memo1.Lines.Count do
  writeln(F, Memo1.Lines[i]);
closefile(f);
end;

Index > Forum général > Sauvegarder Fichier Texte en (Unicode)Nouveau post - Répondre
 page 1 sur 1