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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Append(f); ни гугу 
:(
    Опции темы
DYUMON
Дата 13.8.2007, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 17.6.2006
Где: Новосибирск

Репутация: нет
Всего: 3
В дркб прочитал о паскалевском методе работы с файлами попробовал так сделать ние гугу
Код

procedure TForm1.N2Click(Sender: TObject);
var
f: TextFile;
FilePath:string[80];

begin
FilePath:=('IP-àäðåññà.txt');
AssignFile(f, FilePath);
if not FileExists(FilePath) then
rewrite(f);
closefile(f);
end;
append(f);
writeln(f,'ïðèâåò ýòî ðàáîòâåò');
flush(f);
closefile(f);

end;

а ему не нравиттся
Код

Append(f);

почему не могу ни как понять?


--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
ne0n
Дата 13.8.2007, 22:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


PlayBoy
**


Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: 1
Всего: 11
у тебя же 1 бегин, а енда 2 smile ты закрываешь файл а потом с ним хочешь работать...

Это сообщение отредактировал(а) ne0n - 13.8.2007, 22:16


--------------------
http://sa-sec.org
как я вам?smile
PM MAIL ICQ   Вверх
Sunvas
Дата 13.8.2007, 23:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 2
Всего: 89
Между строками
Цитата(DYUMON @  13.8.2007,  22:12 Найти цитируемый пост)
if not FileExists(FilePath) then
rewrite(f);

Поставь begin



--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
tvorozhenciya
  Дата 3.6.2010, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Добрый вечер всем!!!
Скажите, пожалуйста, у меня есть код:
Код

assignfile(f,'.\Test\Rezultati\Obshee\OB.txt');  rewrite(f);
   begin
    fam:=form12.Edit1.text;
    kp:=kolp1;
    kn:=koln1;
     writeln(f,fam);
     writeln(f,kp);
     writeln(f,kn);
    end;
   closefile(f);
  end;


Но проблема в том,что данный код перезаписывает файл, а как сделать, чтобы он дописывал?
Задача такая: тестирование проходит, затем результаты должны записываться в файл,а потом считываются в таблицу, не могу сделать дозапись в этот же файл =-(((..подскажите плиззз

Это сообщение отредактировал(а) bems - 4.6.2010, 17:20
PM MAIL   Вверх
Proxin
Дата 3.6.2010, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 3
append(f);
PM MAIL   Вверх
tvorozhenciya
Дата 3.6.2010, 20:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Proxin @ 3.6.2010,  20:22)
append(f);

не поняла. это куда или вместо чего?
PM MAIL   Вверх
Данкинг
Дата 3.6.2010, 20:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
Цитата(tvorozhenciya @ 3.6.2010,  21:45)
Цитата(Proxin @ 3.6.2010,  20:22)
append(f);

не поняла. это куда или вместо чего?

Вместо writeln, видимо.



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


Опытный
**


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

Репутация: 1
Всего: 3
вместо rewrite.
PM MAIL   Вверх
Данкинг
Дата 3.6.2010, 22:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
Цитата(Proxin @ 3.6.2010,  22:21)
вместо rewrite.

Да, извиняюсь, попутал. smile 


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


Опытный
**


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

Репутация: 1
Всего: 1
для работы с файлами есть класс интересный TFileStream.

Тоже хороший.


--------------------
"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

 (с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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