para o pessoal do Clube

Question

preciso ler a propriedade Text do componente Edit de qualquer tamanho e escrever apenas 40 caracteres lidos na propriedade Lines do componente MEMO, implementei o codigo abaixo mas nao estou consegind...

Leandrooricchio · Answer

tenta assim:procedure TfrmPrincipal.bbtnInserirMemoClick(Sender: TObject); begin if editInserirMemo.Text <> �� then Memo1.Lines.Add(copy(editInserirMemo.Text,1,40)) else begin ShowMessage(�Digite o texto!�); editInserirMemo.SetFocus ; end ; end;...

Softwork · Answer

Basta vc. utilizar a fun��o Copy(...), exemplo abaixo:

procedure TfrmPrincipal.bbtnInserirMemoClick(Sender: TObject);
begin
if editInserirMemo.Text <> �� then
Memo1.Lines.Add([b:abb6261f67]Copy([/b:abb6261f67]editInserirMemo.Text[b:abb6261f67], 01, 40)[/b:abb6261f67])
else
begin
ShowMessage(�Digite o texto!�);
editInserirMemo.SetFocus ;
end ;

end;