Mam's WebSite
建築CGパース住宅CGパース

Mamの覚書Q&A検索

トップページMamの覚書Q&A検索Delphi(コンポーネント)⇒Q&A


大項目:「 Delphi 」 - 中項目:「 コンポーネント 」

「 TStringListで改行コードを13(CR)+10(LF)ではなく、10(LF)でファイルに出力する 」

TStringListで改行コードを13(CR)+10(LF)ではなく、10(LF)でファイルに出力するには。
また、文字エンコードをUTF8でファイルに出力したい。


回答

TStringListのLineBreakプロパティにLFを設定して、SaveToFileで保存するだけです。
また、SaveToFileの第2引数にTEncoding.UTF8を指定することで、文字エンコードを指定して保存できます。

ソース

procedure TForm1.Button1Click(Sender: TObject);
var stl:TStringList;
begin
  stl:=TStringList.Create;
  try
    stl.LineBreak:=#10;
    stl.Add('吉田');
    stl.Add('


Mam's WebSite