Obtendo determinadas linhas de um memo....

Delphi

16/06/2015

tenho um memo com 100 nomes...como selecionar de 30 em 30 sem clikcar nos nomes....e passando a quantidade de nomes a selecionar dentro de um Edit..... Agradeço a atençao :P
Bruno

Bruno

Curtidas 0

Melhor post

Dorivan Sousa

Dorivan Sousa

19/06/2015

os nomes estao cada um em uma linha ?
GOSTEI 1

Mais Respostas

Bruno

Bruno

16/06/2015

simmm
GOSTEI 0
Dorivan Sousa

Dorivan Sousa

16/06/2015

quando voce fala selecionar, vc quer selecao do texto ou vc quer o texto na edit...

pq pra pegar o texto 

var
  i: integer; 
  q: integer;
  s: string;
begin
  q:=30; // quantidade de linha
  s:=''; //inicia a variavel 
  for i:=0 to q-1 do
  begin  
     s:=s+memo1.lines[i]
  end;

  edit1.text:=s;
end;


ou se vc quer de uma determina linha

var
  l, i: integer; 
  q: integer;
  s: string;
begin 
  l:=10; //inicia da décima linha
  q:=30; // quantidade de linha
  s:=''; //inicia a variavel 
  for i:=l to q-1 do
  begin
     s:=s+memo1.lines[i]
  end;

  edit1.text:=s;
end;
GOSTEI 1
Bruno

Bruno

16/06/2015

amigo aqui esta meu problema......

https://www.sendspace.com/file/5ksb8y

fiz um pequeno prejeto mostrando o meu problema....abaixe o codigo fonte para avaliar.....

preencha o edit : Quant: com numeros 2 ou 3 e vai ver o pequeno erro...


grato pela atençao..........
GOSTEI 0
Bruno

Bruno

16/06/2015

preciso que começe a pegar os nomes desde a primeira linha.....ate a ultima..
GOSTEI 0
POSTAR