Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Добавление записи в файл 
V
    Опции темы
tommy256
Дата 5.1.2008, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 28.11.2007

Репутация: нет
Всего: нет
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    procedure FormClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TKind = (GOLD, SILVER, BRONZE);
// запись файла
TMedal=record
country: string[20]; // страна 
sport: string[20]; // вид спорта
person: string[40]; // спортсмен 
kind: TKind; // медаль 
end;

var
  Form1: TForm1;
  f: file of TMedal;

implementation

{$R *.dfm}

procedure TForm1.FormClick(Sender: TObject);
var
resp : word;
begin
AssignFile(f, 'C:\medals.db');
{$I-}
Reset (f); // открыть файл
Seek(f, FileSize(f)); // указатель записи в конец файла
{$I+}
if IOResult = 0
then button1.enabled:=TRUE // теперь кнопка Добавить доступна
else begin
resp:=MessageDlg('Файл базы данных не найден.' + 'Создать новую БД?', mtError,[mbYes,mbNo],0);
if resp = mrYes then begin {$I-}
rewrite(f); {$I+}
if IOResult = 0
then button1.enabled:=TRUE
else ShowMessage('Ошибка создания файла БД.'); 
end; 
end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);



begin
CloseFile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
medal: TMedal; 
begin
with medal do begin
country := ComboBox1.Text;
sport := ComboBox2.Text; 
person := Edit1.Text;
case RadioGroup1.ItemIndex of 
0: kind := GOLD;
1: kind := SILVER;
2: kind := BRONZE; 
  end;

write(f,medal); // записать содержимое полей записи в файл
end;
end;

end.



Когда запускаю прогу пишут File access denied, создаёт файл, но он пустой, а когда закрываю прогу пишет I/O Error , но это понятно как файл можно закрыть, если с ним бок вышел?!
PM MAIL ICQ   Вверх
aktuba
Дата 5.1.2008, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38
Я бы использовал TFileStream...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
kemiisto
Дата 5.1.2008, 17:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 2
Всего: 160
У меня все работает!
Может у тебя нет прав на запись в корень диска С:? 
Я бы лучше подгружал эту "базу данных" прямо из папки с программой (для уверенности, что дело не в недостатке прав доступа). 


--------------------
XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile
PM MAIL WWW GTalk Jabber   Вверх
tommy256
Дата 5.1.2008, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 28.11.2007

Репутация: нет
Всего: нет
пробывал не получается  smile  та же ошибка
PM MAIL ICQ   Вверх
kemiisto
Дата 5.1.2008, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 2
Всего: 160
Так... Мне кажется я начинаю понимать...

Событие TForm1.FormClick вызывается не при создание формы, а при шелчке на ней мышью! 
Тебе нужно написать все, что тан паписано в обработчик события OnCreate твоей формы.

Я сначала подумал, что оно так задумано - но, видимо, это ошибка!

Добавлено через 1 минуту и 42 секунды
А вот если все оставить так, то чтоб работало сначало кликни по форме (в пустом месте где нет контролов), а уж потом Button1 ... 


--------------------
XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile
PM MAIL WWW GTalk Jabber   Вверх
tommy256
Дата 6.1.2008, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 28.11.2007

Репутация: нет
Всего: нет
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TKind = (GOLD, SILVER, BRONZE);
// запись файла
TMedal=record
country: string[20]; // страна 
sport: string[20]; // вид спорта
person: string[40]; // спортсмен 
kind: TKind; // медаль 
end;

var
  Form1: TForm1;
  Stream:TStream;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
stream.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
medal: TMedal; 
begin
with medal do begin
country := ComboBox1.Text;
sport := ComboBox2.Text; 
person := Edit1.Text;
case RadioGroup1.ItemIndex of 
0: kind := GOLD;
1: kind := SILVER;
2: kind := BRONZE; 
  end;

stream.write(medal,sizeof(medal)); // записать содержимое полей записи в файл
end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Stream:=TFileStream.Create('C:\medals.db',fmCreate);
end;

end.


Вот решил сделать через TFileStream. Базу данных создаёт а вот она, всмысле база пустая! Я просто впервые использую потоки, так что не ругайте за грубые ошибки!

P.s А чем можно открыть базу данных, какой прогой, что я мог действительно глянуть, что записало всё правильно?
PM MAIL ICQ   Вверх
Данкинг
Дата 7.1.2008, 00:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(tommy256 @ 6.1.2008,  23:41)
P.s А чем можно открыть базу данных, какой прогой, что я мог действительно глянуть, что записало всё правильно?

Access


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
kemiisto
Дата 7.1.2008, 11:42 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 2
Всего: 160
Данкинг, такая "база данных" Access'у не по зубам!  smile 

И вообще, tommy256, если хочешь написать свою маленькую СУБД в Delphi испульзуют "несколько" иной подход. (Есть такой компонент TClientDataSet. Вещь, я тебе скажу!)

Вообще, Delphi крайне мощный инструмент для разработки собственных приложений баз данных.  smile 

Но почитать все таки нужно (хотя бы немного)  smile 

Ну а по поводу твоего кода:
1) у меня (опять таки) все работает!
2) procedure TForm1.FormActivate(Sender: TObject) будет вызываться каждый раз, когда форма получает фокус ввода! А надо бы только 1 раз при старте (обрабатывать надо событие OnCreate, а не OnActivate).
3) Stream:=TFileStream.Create('C:\medals.db',fmCreate); т.е. всякий раз БД создается заново! Бессмысленно! 

 


--------------------
XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile
PM MAIL WWW GTalk Jabber   Вверх
THandle
Дата 7.1.2008, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Цитата(tommy256 @  6.1.2008,  23:41 Найти цитируемый пост)
P.s А чем можно открыть базу данных, какой прогой, что я мог действительно глянуть, что записало всё правильно? 

Блокнотом очень даже нормально можно проверить.

А вообще просто сменить OnActivate на OnCreate и всё будет нормально, как уже сказал kemiisto. 
PM   Вверх
tommy256
Дата 7.1.2008, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 28.11.2007

Репутация: нет
Всего: нет
Всем спасибо smile Всё работает, только когда я открываю бд в блокноте там встречаются нормальные слова, среди каракуль smile Это и должно так быть?
PM MAIL ICQ   Вверх
VICTAR
Дата 7.1.2008, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80
Цитата(tommy256 @  7.1.2008,  13:41 Найти цитируемый пост)
Это и должно так быть? 

 smile ведь ты же сохраняешь string
PM MAIL   Вверх
SneG0K
  Дата 7.1.2008, 15:19 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
зы.. а попробуй бызу данных масивом создать... а потом уже этот массив куда-то сохранять...
Код

var
db:array[0..2, 0..3] of string;

это где 3 поля по вертикали и четыре по горизонтали.. пробуй разберешся.... еще мона и трехмерные массивы...
Код

db:array[0..1, 0..2, 0..3] of string;
PM WWW Skype   Вверх
tommy256
Дата 7.1.2008, 15:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 28.11.2007

Репутация: нет
Всего: нет
Цитата(SneG0K @ 7.1.2008,  15:19)
зы.. а попробуй бызу данных масивом создать... а потом уже этот массив куда-то сохранять...
Код

var
db:array[0..2, 0..3] of string;

это где 3 поля по вертикали и четыре по горизонтали.. пробуй разберешся.... еще мона и трехмерные массивы...
Код

db:array[0..1, 0..2, 0..3] of string;

А что мне даёт массив?
PM MAIL ICQ   Вверх
THandle
Дата 7.1.2008, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Не вижу смысла в массивах... ИМХО довольно глупо.
PM   Вверх
SneG0K
Дата 8.1.2008, 14:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Зы.. я всегда если организовывал какуето бд, так я её сначала в массив сохранял, а потом в какой нить файл... мне с массивом легче работать
PM WWW Skype   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1172 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.