para o pessoal do Clube
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 consegindo contar os caracteres...., esta escrevendo o Text do Edit inteiro... Obrigado
procedure TfrmPrincipal.bbtnInserirMemoClick(Sender: TObject);
begin
if editInserirMemo.Text <> ´´ then
Memo1.Lines.Add(editInserirMemo.Text)
else
begin
ShowMessage(´Digite o texto!´);
editInserirMemo.SetFocus ;
end ;
end;
procedure TfrmPrincipal.bbtnInserirMemoClick(Sender: TObject);
begin
if editInserirMemo.Text <> ´´ then
Memo1.Lines.Add(editInserirMemo.Text)
else
begin
ShowMessage(´Digite o texto!´);
editInserirMemo.SetFocus ;
end ;
end;
Martelato
Curtidas 0
Respostas
Leandrooricchio
28/04/2003
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;
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;
GOSTEI 0
Softwork
28/04/2003
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;
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;
GOSTEI 0