比如,我要删除所有含‘阿’字符的行?

解决方案 »

  1.   

    将文件放到memo中,
    for i:=0 to memo.lines.count-1 do begin
    if pos('啊',memo.lines[i])<> 0 then
    memo.lines.Delete(i);
    end;
    保存到文件中
      

  2.   

    你说的太不明白,是删除Memo中的吗?若是,请参考下面代码:
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i: Integer;
    begin
      for i := Memo1.Lines.Count - 1 downto 0 do
        if Pos('阿', Memo1.Lines[i]) > 0 then
          Memo1.Lines.Delete(i);
    end;
      

  3.   

    Faint!
    写错了!
    是stringGrid不是VCL!
    :)
      

  4.   

    procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid); 
    var 
      i: Integer; 
    begin 
      Grid.Row := RowNumber; 
      if (Grid.Row = Grid.RowCount - 1) then 
        { On the last row} 
        Grid.RowCount := Grid.RowCount - 1 
      else 
      begin 
        { Not the last row} 
        for i := RowNumber to Grid.RowCount - 1 do 
          Grid.Rows[i] := Grid.Rows[i + 1]; 
        Grid.RowCount := Grid.RowCount - 1; 
      end; 
    end;