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

解決


たか  2005-09-18 00:11:52  No: 17611  IP: 192.*.*.*

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

編集 削除
anone  2005-09-18 00:41:58  No: 17612  IP: 192.*.*.*

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);              // ここで1行削除
    Memo1.Lines.Assign(sl);
  finally
    sl.Free;
  end;
end;

編集 削除
たか  2005-09-18 01:21:26  No: 17613  IP: 192.*.*.*

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

編集 削除