Para completar lo del maestro ecfisa:
En un form simplemente coloque un TMemo, 2 TButton, un TEdit y un TSpinEdit
Uno de los botones lo llame BtnBuscarBorrar y el otro BtnBorrarPorIndice
Y agregue este codigo en los eventos OnClick
Código Delphi
[-]
procedure TForm3.BtnBuscarBorrarClick(Sender: TObject);
var
i: integer;
str: string;
begin
str := Edit1.Text;
i := Memo1.Lines.IndexOf(str);
if i <> -1 then
begin
Memo1.Lines.Delete(i);
ShowMessageFmt('Borrado string %s en la posicion %d', [QuotedStr(str), i]);
end;
end;
procedure TForm3.BtnBorrarPorIndiceClick(Sender: TObject);
var
i: integer;
str: string;
begin
i := SpinEdit1.Value;
try
str := Memo1.Lines[i];
Memo1.Lines.Delete(i);
ShowMessageFmt('Borrado string %s en la posicion %d', [QuotedStr(str), i]);
except on E: Exception do
ShowMessageFmt('No pude borrar! El error fue:%s %s', [sLineBreak, E.Message]);
end;
end;
Y en tiempo de diseño agrege en el memo a traves de la propiedad Lines algun texto (cualquier cosa)
El resultado:
1) Apenas ejecuto el programa:
2) En mi memo tengo el string "Borrame!", si en mi edit escribo "Borrame!" y hago click en el boton "Buscar y Borrar":
3) Y si en el SpinEdit indico el indice y hago click en el otro boton: