(Resolvido) Dúvida - Memo Deletar Última e Primeira Linha

[Henrique Bosse]

Olá galera... mais uma dúvida minha...

Tenho um programa que lê um arquivo Txt e joga para um Memo só que eu precisaria apagar a primeira e a ultima linha desse Memo sendo que ele pode variar de tamanho conforme o dia que eu importar esse arquivo.

No meu Memo o código está assim, onde eu detectava alguma palavra que tem em todos TXT na primeira e ultima linha e deleto ela.

O TXT contém somente valores numéricos (nos campos que eu preciso)..

o que acontece porém é que 1 maldito TXT na última linha só tem um numero 9 e mais nada então essa minha lógica "gambiarra" não funciona...

Alguma idéia de como deletar somente a primeira e última linha do Memo?

procedure TfrmDebitoConta.mmListaChange(Sender: TObject);

var Palavra : String;

i : Integer;

begin

Palavra := 'LOVELY';

for i := Pred(mmLista.Lines.Count) DownTo 0 do

begin

if Pos(Palavra, mmLista.Lines) > 0 then

mmLista.Lines.Delete(i);

end;

Palavra := 'Z000';

for i := Pred(mmLista.Lines.Count) DownTo 0 do

begin

if Pos(Palavra, mmLista.Lines) > 0 then

mmLista.Lines.Delete(i);

end;

end;

[Jhonas]

como deletar somente a primeira e última linha do Memo?

exemplo

procedure TfrmDebitoConta.mmListaChange(Sender: TObject);
begin
   mmLista.Lines.Delete(0);
   mmLista.Lines.Delete(mmLista.Lines.Count-1);
end;

abraço

[Henrique Bosse]

Não rola... ele apaga o Form inteiro.. já havia tentado dessa forma tb

[Jhonas]

achei que voce ia perceber o motivo

no evento OnChange não pode ser usado

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   memo1.Lines.Delete(0);
   memo1.Lines.Delete(memo1.Lines.Count-1);
end;

end.

abraço

[Henrique Bosse]

Nossa... não acreidto que não vi isso... pqp tava mongando aqui um bom tempo por uma bobagem!

Muito obrigado ai fera... quando as coisas estão no lugar certo fica melhor heheheh

abraçoss