F�rum Abrir arquivo de texto com o DateTimePicker #521002

26/05/2015

Ol� Pessoal !

Bom estou fazendo uma aplica��o que se assemelha a um di�rio de anota��es, nela eu digito o t�tulo do assunto em uma EDIT e em uma MEMO eu digito a anota��o,ap�s t�rmino eu clico em SALVAR, ap�s ter salvo, � gerado um bloco de notas dentro de uma pasta que criei para receber essas anota��es, nela ir� salvar essas anota��es com DATA_ASSUNTO ,� um pequeno resumo de como ele funciona, agora direi o que eu quero e n�o estou conseguindo :

Na parte superior da aplica��o tem um DateTimePicker, onde posso selecionar uma data em que criei um arquivo, caso o dia escolhido possua alguma anota��o, automaticamente dentro da MEMO esta anota��o aparecer� assim que escolhido o dia e ele possua algo, caso ele n�o possua nada, uma mensagem � exibida "N�O EXISTE ANOTA��ES NESTE DIA" e o EDIT � liberado para a inser��o do titulo e abaixo para escrever na MEMO a anota��o.

O que quero, e n�o estou conseguindo � apertar em uma data X no DateTimePicker e fazer com que ela abra a anota��o na memo (CASO EXISTA) , ou se n�o existir exibir uma mensagem e liberar para a digita��o.

Abaixo, seguem as imagens da aplica��o e o c�digo :

[img:descricao=Ilustra��o da Aplica��o]http://i.imgur.com/gNsWE8R.jpg[/img]

[img:descricao=Ilustra��o 2 da Aplica��o]http://i.imgur.com/0g7GCqQ.jpg[/img]

C�DIGO :

procedure TForm1.FormShow(Sender: TObject);
begin
mmNota.Clear;
edtAssunto.Clear;
edtAssunto.SetFocus;
imgSalvar.Enabled:=false;
end;

procedure TForm1.imgAbrirMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
imgAbrir.Picture.LoadFromFile('img/open_click.ico');
end;

procedure TForm1.imgAbrirMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
imgAbrir.Picture.LoadFromFile('img/open.ico');
end;

procedure TForm1.imgSalvarMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
imgSalvar.Picture.LoadFromFile('img/save_click.ico');
end;

procedure TForm1.imgSalvarMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
imgSalvar.Picture.LoadFromFile('img/1432231967_stock_save.ico');
end;


var data, assunto, texto, nome, linha : String;
arq : TextFile;

procedure TForm1.imgSalvarClick(Sender: TObject);
  begin
    data := StringReplace(datetostr(dtCalendario.date), '/', '-', [rfReplaceAll, rfIgnoreCase]);
    assunto := StringReplace(edtAssunto.Text, ' ', '_', [rfReplaceAll, rfIgnoreCase]);
    texto := mmNota.Text;
    nome := 'notas/'+data+'_'+assunto+'.txt';
    mmNota.Clear;
    mmNota.Lines.Add(edtAssunto.Text);
    mmNota.Lines.Add(' ');
    mmNota.Lines.Add(texto);
    mmNota.Lines.Add(' ');
    mmNota.Lines.Add(datetostr(dtCalendario.date));
    mmNota.Lines.SaveToFile(nome);
    mmNota.Clear;
    edtAssunto.Clear;    
    edtAssunto.SetFocus;
  end;
procedure TForm1.imgAbrirClick(Sender: TObject);
  begin
  odAbrir.Title := 'Abrir Nota';
  odAbrir.InitialDir := '/notas/';
  odAbrir.Execute;
  if odAbrir.FileName <> '' then
  edtAssunto.Text := odAbrir.FileName;
{  mmNota.Lines.LoadFromFile(odAbrir.FileName); }
  end;
procedure TForm1.edtAssuntoChange(Sender: TObject);
begin
imgSalvar.Enabled:=true;
end;

end.

Andr� Moutinho

Curtir t�pico

+ 0

Responder