Listbox - selecionar 5 linhas apos um delimitador

Delphi

29/11/2012

ola pessoal,
tenho um arquivos texto um pouco extenso, e com muita informação que não me interessa, gostaria de saber como selecionar 5 linhas apos uma linha com um "|" pipe no listbox ou memo.
desde ja agradeço.

Adriano.
Adriano Pereira

Adriano Pereira

Curtidas 0

Respostas

Rodolpho Silva

Rodolpho Silva

29/11/2012

Acho que pode ajudar...
[url]https://www.devmedia.com.br/forum/arquivo-txt-grande-selecionar-um-bloco-de-texto-em-um-memo-conforme-delimitador/429912[/url]
GOSTEI 0
Adriano Pereira

Adriano Pereira

29/11/2012

acho que pode ajudar...
https://www.devmedia.com.br/forum/arquivo-txt-grande-selecionar-um-bloco-de-texto-em-um-memo-conforme-delimitador/429912


eu preciso justamente, "do faca alguma coisa" da sua resposta, quero no no lugar do faca alguma coisa selecionar 5 linhas de um listbox ou memo para depois exportar para outro lugar
GOSTEI 0
Rodolpho Silva

Rodolpho Silva

29/11/2012

const
  IDBLOCO ='#'
var
  bMeuBloco: Boolean;
  sConteudo: String;
begin
  bMeuBloco := False;
  while not Eof(Arquivo) do
  begin
    ReadLn(Arquivo, Texto);

    if bMeuBloco then
      sConteudo := sConteudo + Texto
    else
    begin
      // Aqui eu uso o conteudo acumulado
      // do arquivo, na variável sConteudo
    end;
    bMeuBloco := (Texto = IDBLOCO);
  end;
end;
GOSTEI 0
POSTAR