VPF::Чо-то нетак в коде! - Форум программистов

Pariah

Дата 4.5.2006, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Дарова народ!
Помогите мне плиз с моим кодом! При компилинге Delphi тормозит на Reset(F); и говорит что такого файла ненайдено хотя я его создал , подозреваю что этот баг вылетает из-за того что я передал в CreateFile параметр open_always! Подскажите какое название параметра передать чтобы открыть и закрыть файл чтоб файл был свободен для работы с другим приложением и плиз кинте линь где мона прочитать о том какие бывают и что означают параметры нападобе open_always!
Буду оч благодарен!
Вот мой код :

Код


procedure TForm1.FormCreate(Sender: TObject);
const FileName = 'C:\WINDOWS\Data.txt';
var
  F: TextFile;
  S: string;
  ListItem: TListItem;
begin
 if not FileExists(FileName) then
   CreateFile(PChar(FileName), GENERIC_READ + GENERIC_WRITE, 0, nil, OPEN_ALWAYS , 0, 0);
 AssignFile(F,'C:\WINDOWS\Data.txt');
Reset(F);
 while not EOF(F) do
 begin
   Readln(F, S);
listitem := ListView1.Items.Add;
listitem.Caption := getlineele(s,'<Text>','</ Text >');
listitem.SubItems.Add(getlineele(s,'< Text >','</ Text >'));
listitem.SubItems.Add(getlineele(s,'< Text >','</ Text >'));
listitem.SubItems.Add(getlineele(s,'< Text >','</ Text >'));
  end;
CloseFile(F);
 end;

Kuber

Дата 5.5.2006, 00:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 7.4.2006
Где: #vingrad

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

Тут надо убрать AssignFile(F, FileName); функция открывает и устанавливает указатель в конец файла, если он существовал до этого то ошибка, происходит двойное открытие(CreateFile еще).
OPEN_ALWAYS - Открывает файл если его нет создает новый.
Попробуй CREATE_ALWAYS, файл создается в любом случае, если существует, то перезаписывается.

--------------------

Если меня угораздило написать что то умное и вам понравилось, то не забудте нажать [-]...:)

sergejzr

Дата 5.5.2006, 02:08 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360

Модератор: Название темы должно отражать ее суть!

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

Pariah

Дата 5.5.2006, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Вообщем всем пасиб кто проявил внимание к моей теме!
Справился сам smile

Кому интересно вот код:

Код


procedure TForm1.FormCreate(Sender: TObject);
const FileName = 'C:\WINDOWS\Data.txt';
var
  F: TextFile;
  S: string;
  ListItem: TListItem;
begin
if not FileExists(FileName) then
SaveList ; // а это процедура которую я добывил и описал выше(сохраняет пустые данные если файла нет)
begin // добавляем данные какие есть в нашем файле в items and subitems  
AssignFile(F,FileName);
 Reset(F);
 while not EOF(F) do
 begin
   Readln(F, S);
listitem := ListView1.Items.Add;
listitem.Caption := getlineele(s,'<Text >','</ Text >'); // getlineele это функция которую описал //выше
listitem.SubItems.Add(getlineele(s,'< Text >','</ Text >'));
listitem.SubItems.Add(getlineele(s,'< Text >','</ Text >'));
listitem.SubItems.Add(getlineele(s,'< Text >','</ Text >'));
  end;
CloseFile(F);
  end;
 end; // happy compiling :)

Это сообщение отредактировал(а) Pariah - 5.5.2006, 15:35

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »