VPF::не могу записать текст в файл - Форум программистов

siogun

Дата 21.5.2009, 10:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте. Решил написать программу, которая бы меняла активный профиль в игрушке.
Но что-то не получается. Так как я новичёк в делфи и не представляю где может быть ошибка,то выкладываю почти весь код smile

Код


var
profil:TextFile;
 nam:string;

procedure TForm1.FormActivate(Sender: TObject);
var
search:TSearchRec;
begin
  //связываем переменную с файлом в котором записан активный профиль
  assignfile(profil,GetCurrentDir +'/Active.txt');
  reset(profil);
  read(profil,nam);
  //выводим имя активного профиля в свойстве текст компонента Combobox
 l.Text:= nam;
 //ищем имена остальных профилей
      if findfirst(GetCurrentDir+'/*',faDirectory,search)= 0 Then
      begin
      repeat
     if (search.Attr <> faDirectory) or(search.name ='.') or (search.name = '..')
    then
    continue
    else
       l.Items.Add(search.Name);
       until
         FindNext(search)<>0;
         FindClose(search);
      end;
end;

procedure TForm1.lChange(Sender: TObject);
begin
   nam:= l.Items.Strings[l.itemindex];
    Rewrite(profil);
    //пытаемся сделать активным другой профиль,но в результате файл оказывается пустым
     writeln(profil,nam);
end;

end.

Frees

Дата 21.5.2009, 10:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

Цитата(siogun @ 21.5.2009, 12:04

)

Но что-то не получается.

Что не получается?
ошибка или ..?

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

Кольцов Виктор Владимирович

siogun

Дата 21.5.2009, 11:46 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Frees @ 21.5.2009, 10:59

)

Что не получается?
ошибка или ..?

Ну предыдущий активный профиль из файла стирается, а новый , выбранный в Comboboxе не записывается.
Ошибки нет.

Это сообщение отредактировал(а) siogun - 21.5.2009, 11:49

Данкинг

Дата 21.5.2009, 14:45 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Ну так ты же Rewrite(profil) делаешь, вот файл и перезаписывается. Попробуй Reset.
(в код не вникал).

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

There's nothing left but silent epitaphs.

kami

Дата 21.5.2009, 17:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

Насколько я понял, проблема только в записи новой строки, т.е. элементы в комбобокс выводятся нормально?
Тогда:

Цитата(siogun @ 21.5.2009, 10:04

)

nam:= l.Items.Strings[l.itemindex];

1) и чему равна переменная nam после этой строки?
2) Кто будет закрывать файл после WriteLn? (CloseFile, или как_там_оно_обзывается?)

Добавлено через 1 минуту и 1 секунду
Кстати, скорее всего, файл Active.txt и оказывается пустым по причине, указанной в 2).

siogun

Дата 22.5.2009, 08:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(kami @ 21.5.2009, 17:53

)

2) Кто будет закрывать файл после WriteLn? (CloseFile, или как_там_оно_обзывается?)

Спасибо, добавил ClaseFile(profil) и заработало. Просто я в другой проге не закрывал но все нормально записывалось, но я там после записи снова открывал файл для чтения. Видимо это это заменяло закрытие файла для записи smile

. Сколько тонкостей в Делфи для новичка smile

kami

Дата 22.5.2009, 11:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

Цитата(siogun @ 22.5.2009, 08:41

)

Сколько тонкостей в Делфи для новичка

А Delphi тут ни при чем.
Есть такое правило: все что открыл/создал, должно быть закрыто/уничтожено. Для этого в описании всех функций есть ремарки, которые говорят что-то типа "полученный хендл должен быть закрыт функцией CloseHandle" или "указатель, полученный с помощью AllocMem должен быть освобожден с пом. Freemem". (вольный перевод, даже черезчур вольный).

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