Como Inserir dados Campo Memo sempre no inicio

Question

Colegas.Preciso de uma forma que toda vez que for editar um campo memo ao inv�s de ir para a �ltima linha, a edi��o sempre iniciar na linha 0 e ir �empurrando� os outros dados para baixo.Obrigado a to...

Marco Salles · Answer

[quote:4dd807c780]Preciso de uma forma que toda vez que for editar um campo memo ao inv�s de ir para a �ltima linha, a edi��o sempre iniciar na linha 0 e ir �empurrando� os outros dados para baixo. [/quote:4dd807c780]eu n�o sei como e o que voce define como Edi��o ...mas depende da sua L�gica a instru��o abaixo pode atender a sua necessidade[code:1:4dd807c780]procedure TForm1.Memo1Click(Sender: TObject);beginmemo1.SelStart:=0;if memo1.Lines.Strings&#91;0&93; <> �� Then  begin    memo1.Lines.Strings&91;0&93;:=sLineBreak+memo1.Lines.Strings&91;0&93;;    memo1.SelStart:=0;  end;end;[/code:1:4dd807c780]...

Helio Nascimento · Answer

Marcos SalesSempre voc� nos ajudando...Voc� � o cara!!!Marcos seguinte: Ainda n�o testei o seu c�digo, mas voc� suscitou uma d�vida sobre o que eu quero que o sistema realize.Tenho um campo DBMemo1, que recebe diariamente ocorr�ncias operacionais.Exemplo (1) Situa��o atual: ==================13/07/2008 - Jo�o Jose de Souza ---------------------------------------Realizou experi�ncias laboratoriais nulas15/07/2008 - Pedro Augusto----------------------------------------Houve registro de perda de uma falange do                                                     dedo m�dio em m�quina operatriz.             Situa��o desejada:============23/07/2008 - H�lio Nascimento----------------------------------------Realiza consultas ao Forum DevM�dia para resolver quest�es da inser��o de dados sempre no                                                                         incio do Campo DBmemo1.15/07/2008 - Pedro Augusto----------------------------------------Houve registro de perda de uma falange do                                                     dedo m�dio em m�quina operatriz.                                        13/07/2008 - Jo�o Jose de Souza ---------------------------------------Realizou experi�ncias laboratoriais nulas Percebeu! - As edi��es deste campo DBMemo sempre ser�o inciada no TOP �empurando� para baixo as edi��es passadas, de forma que ao ser consultado sobre as ocorr�ncias voc� sempre ver� a �ltima no top e n�o no final como � habitual. Pegou!!...

Paulo · Answer

Ol� Marco, o que ele quer � que os novos itens quando forem sendo adicionados, que eles fiquem sempre na primeira linha, tipo: Eu tenho
ABACATE
MEL�O
Agora se eu for adicionar MELANCIA a lista ficaria assim:
MELANCIA
ABACATE
MEL�O
e n�o
ABACATE
MEL�O
MELANCIA

Helio Nascimento · Answer

Paulo. � isto mesmo que desejo.Marcos. Testei. N�o funcionou, est� indo para o final como o habitual....

Helio Nascimento · Answer

Pessoal. Fiz o t�tulo errado. N�o � campo Memo, e sim Campo DBMemo.Desculpa-me!...

Brunodsr · Answer

Use a procedure MOVE do TString.Siga o exemplo abaixo: (retirei do help do delphi mesmo)Alimentando a minha lista[code:1:945f0e8874]procedure TForm1.FormCreate(Sender: TObject);var  I: Integer;begin  ListBox1.MultiSelect := False;  Button1.Caption := �Move to Top�;  for I := 1 to 10 do    ListBox1.Items.Add(�Item � + IntToStr(I));end;[/code:1:945f0e8874]Mudando a posicao dos meus itens.[code:1:945f0e8874]procedure TForm1.Button1Click(Sender: TObject);begin  ListBox1.Items.Move(ListBox1.ItemIndex, 0);end;[/code:1:945f0e8874]Com esse exemplo, vc pode modificar para inserir e depois mover o registro para a ponta da lista.Espero ter ajudado...

Marco Salles · Answer

eu ainda n�o entendi como voe esta editando essas Base de dados

se a edi��o � manual ... Se a edi��o vem de Alguma outra Fonte .

O que eu penso � o seguinte

Tenho Um DbMemo com algum Conteudo

Ol� Marco, o que ele quer � que os novos itens quando forem sendo adicionados, que eles fiquem sempre na primeira linha, tipo: Eu tenho ABACATE MEL�O

Supondo que eu quero Adicionar Melancia ... Isto � Adicionar a Base de Dados ... Aonde o Conteudo de Melancia vem Por exemplo de Um Edit
Ficando Assim :

Agora se eu for adicionar MELANCIA a lista ficaria assim: MELANCIA ABACATE MEL�O

e n�o

pois bem se eu entendi direito uma id�ia seria + ou - assim

UmDataSet.Edit;
dbMemo1.Lines.Text:=edit1.Text+sLineBreak+dbMemo1.Lines.Text;
UmDataSet.Post;

com certeza isto coloca a StringMelancia No Inicio ... e n�o no Fim

Helio Nascimento · Answer

Marcos.
Desta vez deu certo. Abaixo mostro-lhes trecho meu c�digo.

Obrigado a todos e... at� a pr�xima !!

procedure TFrmFichaOcorrencias.DBMemo1Enter(Sender: TObject);
VAR tam,risco : string;
    i: integer;
begin
  inherited;

 if DtSrc.DataSet.State in [dsBrowse] then
 if not(DtSrc.DataSet.State=dsEdit) then
     DtSrc.DataSet.Edit;
 begin
  if (DtSrc.DataSet.State=dsInsert) then
    tam:= StaticText1.Caption +� - �+ Trim(FacDbEdit2.Text)
  else
    tam:=DateTimeToStr(now)+� - �+ Trim(FacDbEdit2.Text);

  risco:=��;
  for i:= 1 to (Length(tam)) do
   risco:=risco+�--�;


  if not(DtSrc.DataSet.State=dsInsert) then
  begin
     DBmemo1.Lines.Text:=tam+13+risco+sLineBreak+13+DBmemo1.Lines.text;
     dbMemo1.lines.Insert(2,� �);
  end;
 end;
end;

F�rum Como Inserir dados Campo Memo sempre no inicio #361483