F�rum Manipulando Linhas do Memo #522862

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

Curtir t�pico

+ 0

Responder

Posts

19/06/2015

Dorivan Sousa

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;

Responder

Gostei + 0