Manipulando Linhas do Memo

Delphi

15/06/2015

Amigo estou com um problema parecido com o seu....Tenho um memo com uma lista de 100 nomes...tenho 2 Edit ....Edit1 e Edit2...digito no edit1 o numero 30 desta forma as 30 primerias linhas do memo passam para o Edit2. Se alguem poder ajudar agradeço
Bruno

Bruno

Curtidas 0

Respostas

Dorivan Sousa

Dorivan Sousa

15/06/2015

var
  t: string;
  i: integer;
  q: integer;
begin
  q:=strtoint(edit1.text);
  t:='';
  for i:=0 to q-1 do
  begin
    t:=t+memo1.lines[i]+'  '+;
  end;

  edit2.text:=t;
end;
GOSTEI 0
POSTAR