Pular Linha

[camis]

Oi, alguém sabe como fazer para pular linha num componente memo, tipo eu quero pegar a pergunta de um componente dbgrid e adicionar a palavra resp na outra linha para ficar tipo assim :

Pergunta tal ?

Resp:

Se alguém souber me ajude, obrigada

[Micheletti]

Olá camis!

tenta usar o comando Lines por que assim você consegue acessar qualquer linha do memo.

Ex1:

edit1.Text := Memo1.Lines[2];

pega o conteudo da linha 2.

Ex2:

Memo1.Lines.Add('Teste');

Adiciona uma linha no memo.

espero t ajudado.

[AnaoScript]

Ae como faço pra retornar a linah que o o texto esta exemplo no status mostre a linha em que o o pontero esta piscando e tb o carctere

[Micheletti]

Desc. + não entendi muito não explica melhor.

falow!

[Thuran]

eu acho q a pergunta do anão foi:

Como faço para exibir (por exemplona barra de statgus), o valor da linha que o cursor está ativo no momento (piscando) e o valor do caractere q o antecede

- ou -

Como faço para obter o valor da linha que o cursor está ativo no momento (piscando) e o valor do caractere

:unsure:

[AnaoScript]

Ae tipo aqueles ediotre de html então eu quere que retorne a numero da linha e o numero do caracter não o valor sim a posição

[AnaoScript]

Ae galera valeu eu já conssegui a resposta la no wmonline ae pra quem quiser o codigo é este ae óó

var

LinhaAtual, CharAtual: LongInt;

Final : String;

begin

LinhaAtual := SendMessage(Texto.Handle, EM_LINEFROMCHAR, Texto.SelStart, 0);

CharAtual := SendMessage(Texto.Handle, EM_LINEINDEX, LinhaAtual, 0);

Final := IntToStr(LinhaAtual+1) + ': ' + IntToStr((Texto.SelStart - CharAtual) + 1);

StatusBar1.Panels[1].Text := Final;

end;

Ae o "Texto" é u componente Memo

Valeu