Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > не могу записать текст в файл


Автор: siogun 21.5.2009, 10:04
Здравствуйте. Решил написать программу, которая бы меняла активный профиль в игрушке.
Но что-то не получается. Так как я новичёк в делфи и не представляю где может быть ошибка,то выкладываю почти весь код 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
Цитата(siogun @  21.5.2009,  12:04 Найти цитируемый пост)
Но что-то не получается.

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

Автор: siogun 21.5.2009, 11:46
Цитата(Frees @  21.5.2009,  10:59 Найти цитируемый пост)
Что не получается?
ошибка или ..? 

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

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

Автор: kami 21.5.2009, 17:53
Насколько я понял, проблема только в записи новой строки, т.е. элементы в комбобокс выводятся нормально?
Тогда:
Цитата(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
Цитата(kami @  21.5.2009,  17:53 Найти цитируемый пост)
2) Кто будет закрывать файл после WriteLn? (CloseFile, или как_там_оно_обзывается?)

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

Автор: kami 22.5.2009, 11:30
Цитата(siogun @  22.5.2009,  08:41 Найти цитируемый пост)
Сколько тонкостей в Делфи для новичка

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)