Dodanie daty i godziny w MEMO
2010-08-04
18:16:00
18:16:00
Raven
Data publikacji:
20:16, 4 August 2010
20:16, 4 August 2010
Witam,
na początku chciałbym przeprosić, że odpowiadam z pewnym opóźnieniem - miałem urlop. Wracając do pytania, oczywiście że jest to możliwe - i nie potrzeba do tego żadnych specjalnych komponentów. Wystarczy przy każdym zamykaniu programu zapisywać zawartość komponentu Memo do pliku, a przy każdym uruchamianiu wczytywać plik oraz dodawać nową datę. Aby to zrobić, kliknij pojedynczo formę i w Inspektorze Obiektów, w zakładce Events (zdarzenia) kliknij dwukrotnie pole OnClose, pojawi się Edytor Kodu, do którego wprowadź linię:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Memo1.Lines.SaveToFile('memo.txt');
end;
Przejdź jeszcze raz do Inspektora Obiektów (zakładka Events) i kliknij tym razem dwukrotnie przy polu OnCreate, po czym, w Edytorze Kodu wprowadź takie instrukcje:
procedure TForm1.FormCreate(Sender: TObject);
var
dt: TDateTime;
begin
dt := Now();
if FileExists('memo.txt') Then
Memo1.Lines.LoadFromFile('memo.txt');
Memo1.Lines.Add('Data: '+DateToStr(dt)+', Czas: '+TimeToStr(dt));
end;
Raven
Data publikacji:
18:34, 31 August 2010
18:34, 31 August 2010
Data publikacji:
22:31, 26 July 2013
22:31, 26 July 2013
Zaloguj się aby dodać post.