比如,我要删除所有含‘阿’字符的行?
解决方案 »
- 老问题,Image闪烁问题。
- 怎么在线程类中,关闭窗口....
- ~社区没有注册表版块,只有在这里求高手解决~
- 请教!关于strpchar问题!!
- DBGRID左边的Indicator(指示条)怎样变宽?
- 支持menggirl重新当斑竹二号放分贴!
- 请问怎样用delphi执行外部的exe文件?
- 怎样编译sysinit.pas单元?
- 求救(100分):如何窃取一端时间内,显示器上的变化,并把他保存为多媒体文件或电影文件
- 一个可以使windows2000 , win98 , winnt 关机的程序怎样写
- 我刚从VC转向Delphi,请问怎么实现控件的拖动?
- ADOQuery1FIELD: TStringField;请问这是什么控件产生的代码?
for i:=0 to memo.lines.count-1 do begin
if pos('啊',memo.lines[i])<> 0 then
memo.lines.Delete(i);
end;
保存到文件中
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;
写错了!
是stringGrid不是VCL!
:)
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;