Abrir arquivo de texto com o DateTimePicker

Delphi

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

André Moutinho

Curtidas 0
POSTAR