|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.12.2009, 20:42 | #1 |
Новичок
Джуниор
Регистрация: 06.12.2009
Сообщений: 1
|
Работа с файлом
Дано задание
Написать программу «Ежедневник». Пусть при запуске приложения выдается список дел на сегодняшнюю дату (данные берутся из файла). Реализовать возможность добавления в ежедневник новых событий через отдельное окно. С работой с файлами ещё плохо разобрался помогите, написал код выдаёт ошибку. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ComCtrls; type TForm1 = class(TForm) Button1: TButton; Edit2: TEdit; Label1: TLabel; BitBtn1: TBitBtn; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form1: TForm1; f:textfile; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show; end; procedure TForm1.FormCreate(Sender: TObject); Var fname:string; begin fname:='C:\Users\Èëþøà\Desktop\Ó÷¸á à\ÂÓ ìåò èíô\Èíäèâèäóàëüíîå çàäàíèå\2\ej.txt'; AssignFile(f,fname); if fileExists(fname) then Append(f) else Rewrite(f); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin CloseFile(f); end; end. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm2 = class(TForm) Edit1: TEdit; Label1: TLabel; Button1: TButton; Button2: TButton; MonthCalendar1: TMonthCalendar; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; f:TextFile; implementation uses Unit1; {$R *.dfm} procedure TForm2.Button2Click(Sender: TObject); begin Form1.Show; Form2.Close; end; procedure TForm2.Button1Click(Sender: TObject); Var d:TDateTime; begin d:=MonthCalendar1.Date; WriteLn(f,DateToStr(d)+ ' '+edit1.Text); Edit1.Text:=''; end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
работа с файлом | scudo | Общие вопросы Delphi | 4 | 12.11.2009 22:52 |
Работа с файлом ! | PPikaso | Помощь студентам | 3 | 29.10.2009 14:21 |
Работа с файлом | D_E_N | Общие вопросы Delphi | 6 | 17.07.2009 14:03 |
С++ работа с файлом. | НедоВовик | Помощь студентам | 1 | 05.07.2009 18:22 |
Работа с файлом в C | Mishka | Помощь студентам | 2 | 22.07.2008 13:28 |