ファイル読み書き(TStringList)

簡単なファイルの読み書き操作であるなら、TStringList を利用できます。ファイルを読み込むには LoadFromFile メソッド、ファイルに書き込むにはSaveToFile メソッドを利用します。

ここでは、以下のようなテキストファイルを用いて、TStringList でのファイル読み書きを見ていきます。

sample.txt:

sample
sample
sample

サンプルコード

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\sample.txt');
    sl.Strings[0] := 'changed!!';
    sl.SaveToFile('C:\sample.txt');
    ShowMessage('書き換えました');
  finally
    sl.Free;
  end;
end;

TStringList の LoadFromFile メソッドで読み込まれたファイル(ここでは sample.txt)のそれぞれの行は、Strings プロパティでアクセスすることができます。このサンプルコードを実行した場合、sample.txt は、以下のように書き換えられることになります。

sample.txt:

changed!!
sample
sample

この sample.txt に、さらに変更を加えてみます。

procedure TForm1.Button2Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\sample.txt');
    sl.Add('added!!');
    sl.SaveToFile('C:\sample.txt');
    ShowMessage('書き換えました');
  finally
    sl.Free;
  end;
end;

このコードを実行しますと、以下のように sample.txt が書き換えられます。

sample.txt:

changed!!
sample
sample
added!!

up next
Last update: 2003/3/9