比如,我要删除所有含‘阿’字符的行?
解决方案 »
- dephli 和 .net 通信
- >>>>>>>>> 阻止 RichEdit 选中整段文字 <<<<<<<<<<<<<<<<
- 简单问题300
- 怎么在局域网内发现sqlserver的服务?
- 我想请教有关B/S编程的问题?
- 自己开发控件用软件开发的一些经验!
- 找DbGridEH控件的最新版本!
- 再次请教高手们:请教在PARADOX表中增加一个BZ字段,此字段是备注型的?
- 求教DBGrid的使用方法,DBGrid中随着鼠标的移动记录也相应移动?
- 有谁有 黑白翻转棋 的算法 ?
- 我刚从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;