Enregistrer une chaîne de caractère dans un fichier


Contenu du snippet

{ avec un TStrings }
var TSL : TStringList;
begin
  TSL := TStringList.Create;  
  try
    TSL.Text := 'par toi même la solution trouver tu devrais, mon jeune apprentis.';
    TSL.SaveToFile('c:\talkwithyoda.txt');
  finally
    TSL.Free;
  end;
end;

{ avec un TStream }
var TFS : TFileStream;
    TxT : string;
begin
  TFS := TFileStream.Create('c:\jediowning.txt',fmCreate);
  try
    TxT := 'c''est alors qu'Obiwan-sama se rendit compte qu''il etait entouré '+
           'de quelques milliers de storm troopers ...';
    TFS.WriteBuffer(PChar(TxT)^, Length(TxT));
  finally
    TFS.Free;
  end;
end;


Compatibilité : Delphi 5

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.