Comment enregistrer de la chaîne dans des fichiers texte dans Delphi?

Quel est le moyen le plus facile de créer et d'enregistrer une chaîne en .txt fichiers?

source d'informationauteur micheal

  1. 17

    Utilisation TStringList.

    uses
  Classes, Dialogs; // Classes for TStrings, Dialogs for ShowMessage

var
  Lines: TStrings;
  Line: string;
  FileName: string;
begin
  FileName := 'test.txt';
  Lines := TStringList.Create;
  try
    Lines.Add('First line');
    Lines.Add('Second line');
    Lines.SaveToFile(FileName);
    Lines.LoadFromFile(FileName);
    for Line in Lines do
      ShowMessage(Line);
  finally
    Lines.Free;
  end;
end;

    Aussi SaveToFile et LoadFromFile peut-être un Encodage en Delphi 2009 et plus récents pour définir l'encodage de texte (Ansi, UTF-8, UTF-16, UTF-16 big endian).

  2. 5

    En fait, je préfère ceci:

    var
  Txt: TextFile;
  SomeFloatNumber: Double;
  SomeStringVariable: string;
  Buffer: Array[1..4096] of byte;
begin
  SomeStringVariable := 'Text';
  AssignFile(Txt, 'Some.txt');
  Rewrite(Txt);
  SetTextBuf(Txt, Buffer, SizeOf(Buffer));
  try
    WriteLn(Txt, 'Hello, World.');
    WriteLn(Txt, SomeStringVariable);
    SomeFloatNumber := 3.1415;
    WriteLn(Txt, SomeFloatNumber:0:2); // Will save 3.14
  finally CloseFile(Txt);
  end;
end;

    Je considère que ce le moyen le plus facile, puisque vous n'avez pas besoin de classes ou de tout autre appareil de ce code. Et ça marche pour toutes les versions de Delphi, y compris -si je ne me trompe pas .NET versions de Delphi...

    J'ai ajouté un appel à SetTextBuf() pour cet exemple, ce qui est un bon truc pour accélérer les fichiers texte en Delphi considérablement. Normalement, les fichiers texte disposer d'une marge de seulement 128 octets. J'ai tendance à augmenter cette mémoire tampon à un multiple de 4096 octets. Dans plusieurs cas, j'ai'va également mis en œuvre mon propre fichier Texte les types, ce qui me permet d'utiliser ces "console" fonctions d'écrire du texte dans les champs mémo ou même à un autre, l'application externe! Au cet emplacement est un exemple de code (ZIP), j'ai écrit en 2000 et a juste modifié pour s'assurer qu'il compile avec Delphi 2007. Pas sûr parler de nouvelle versions de Delphi, cependant. Alors encore une fois, ce code est de 10 ans déjà.
    Ces fonctions de la console ont été une norme du langage Pascal depuis c'est début, donc je n'attend pas de disparaître de sitôt. Le TtextRec type peut être modifié à l'avenir, cependant, donc je ne peux pas prédire si ce code fonctionnera dans le futur... Quelques explications:

    • WA_TextCustomEdit.AssignCustomEdit permet texte écrit à CustomEdit à base d'objets comme TMemo.
    • WA_TextDevice.TWATextDevice est une classe qui peut être tombé sur un formulaire, qui contient les événements où vous pouvez faire quelque chose avec les données écrites.
    • WA_TextLog.AssignLog est utilisé par moi pour ajouter les horodatages pour chaque ligne de texte.
    • WA_TextNull.AssignNull est en fait un faux texte de l'appareil. Il écarte tout simplement tout ce que vous écrivez.
    • WA_TextStream.AssignStream écrit du texte à des TStream objet, y compris la mémoire des flux, flux de fichier, TCP/IP, les ruisseaux et tout ce que vous avez.

    Code dans le lien est par les présentes une licence d' CC-BY Comment enregistrer de la chaîne dans des fichiers texte dans Delphi?

    Oh, le serveur avec le fichier ZIP n'est pas très puissante, elle a tendance à être vers le bas à quelques reprises chaque jour. Désolé à ce sujet.

  3. 4

    Ou si vous utilisez une ancienne version de Delphi (qui n'a pas le for line in lines méthode d'itération d'une liste de chaînes):

    var i : integer;
begin

...
try
    Lines.Add('First line');
    Lines.Add('Second line');
    Lines.SaveToFile(FileName);
    Lines.LoadFromFile(FileName);
    for i := 0 to Lines.Count -1 do
      ShowMessage(Lines[i]);
  finally
    Lines.Free;
  end;
  4. 4

    La IOUtils unité qui a été introduit en Delphi 2010 fournit quelques fonctions pratiques pour l'écriture/lecture de fichiers texte:

    //add the text 'Some text' to the file 'C:\users\documents\test.txt':
TFile.AppendAllText('C:\users\documents\text.txt', 'Some text', TEncoding.ASCII);
  5. 1

    Si vous utilisez un Delphi version >= 2009, un coup d'œil au TStreamWriter classe.

    Il permettra aussi de prendre soin de fichier texte codages et les caractères de saut de ligne.

  6. 1
    procedure String2File;
var s:ansiString;
begin
    s:='My String';
    with TFileStream.create('c:\myfile.txt',fmCreate) do
    try
      writeBuffer(s[1],length(s));
    finally
      free;
    end;
end;

    Soins nécessaires lors de l'utilisation de chaînes unicode....