テキストファイルの指定した行を削除するには？

解決

たか 2005-09-18 09:11:52 No: 17611

テキストファイルの指定した行を削除し、それ以降の文字列を１行上にもってくるにはどうしたらいいのでしょうか？
宜しくお願い致します。

anone 2005-09-18 09:41:58 No: 17612

TStringList に読み込んで Delete() メソッドを使えば任意の行を削除できます。

テストコード

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Add('00000000000');
    sl.Add('111111111');
    sl.Add('2222222');
    sl.Add('3333333333333');
    sl.Delete(1);              // ここで１行削除
    Memo1.Lines.Assign(sl);
  finally
    sl.Free;
  end;
end;

たか 2005-09-18 10:21:26 No: 17613

TStringListですか。
Forなどを使わずにできるとは。
ありがとうございました。