Pequenas dica sobre o componente TMemo

Neste mini-artigo inseri 4 dicas para auxiliar aos novatos em delphi, sobre a manipulação de um arquivo de texto em componentes TMemo.




1. Para abrir um arquivo de texto em um componente TMemo, utilize o seguinte código:

Memo1.Lines.LoadFromFile(''caminho do arquivo\arquivo.txt'');

O caminho do arquivo deve ser completo, exemplo: (''C:\Agenda\teste.txt'') e sempre deverá estar entre aspas simples.


2. Selecionando uma linha com apenas um clique, num componente TMemo:

Crie primeiramente a seguinte procedure na unit onde se encontra o TMemo. Está é a procedure que fará com que a linha do memo seja inteira selecionada.

procedure SelecionarLinha(Memo: TCustomMemo);
var Linha: integer;
begin
   with Memo do
   begin
     Linha := Perform(EM_LINEFROMCHAR, SelStart, 0);
     SelStart := Perform(EM_LINEINDEX, Linha, 0);
     SelLength := Length(Lines[Linha]);
   end;
end;

Depois no evento onClick do TMemo insira a seguinte instrução:

SelecionarLinha(NomeDoMemo);

Colocando este código no evento onClick você estará dizendo ao seu programa: "Quando houver um clique no memo, selecione a completamente a linha que o usuário escolheu".

3. Quebra de linha no TMemo.

Para quebra de linha em um TMemo basta alterar a propriedade WantReturns para True. Está é uma configuração pré-definida deste componente.

4. Evitar que o usuário altere os dados de um TMemo

Para evitar que o usuário possa alterar os dados de um TMemo basta alterar a sua propriedade ReadOnly (Apenas Leitura) para true, destá forma os dados do seu memo estão seguros.

Bom pessoal, é isso.
Espero ter ajudado pelo menos um pouquinho aos novatos.

Artigos relacionados