| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

создание файла

kizam ©   (2005-12-13 01:49:00) 

пишу такой вот код

AssignPrn(s);
 Rewrite(s);
 Writeln(s, 'tematika');
 System.CloseFile(s);


но вылетает ошыбка " Undeclared identifier AssignPrn" . не смотря на то что на хелпе точно также описано,что я делаю не так?

---

Джо   (2005-12-13 02:37:00) [1]


procedure TForm1.Button1Click(Sender: TObject);
var
 s: textfile;
 ad: string;
begin
 mkdir(edit1.Text);
 assignfile(s, edit1.Text + '\' + edit2.Text);
 ...


---

kizam   (2005-12-13 02:09:00) [2]

ешо вопрос :)

вот написал такой код

procedure TForm1.Button1Click(Sender: TObject);
var s:textfile;
ad:string;
begin
mkdir(edit1.Text);
assignfile(s,edit2.Text);
rewrite(s);
writeln(s,edit3.text);
closefile(s);
end;


шас хочу чтоб созданный файл разметился на созданную директорию, если можно дайте подсказку.

---

Джо   (2005-12-13 02:03:00) [3]

>  [4] kizam   (13.12.05 02:00)
> но всетаки интересно, для чего нужна AssignPrn.

А что мешает посмотреть в Справку? Там и пример есть.

---

kizam   (2005-12-13 02:00:00) [4]

Джо ты прав, решил проблему так

procedure TForm1.Button1Click(Sender: TObject);
var s:textfile;
ad:string;
begin
assignfile(s,'samr.txt');
rewrite(s);
writeln(s,'alindi');
closefile(s);
end;

но всетаки интересно, для чего нужна AssignPrn.

---

Джо   (2005-12-13 01:52:00) [5]

>  [2] Джо ©   (13.12.05 01:51)

Во втором предположении, я, скорее всего ошибся, но на то оно и предположение :)

---

Джо   (2005-12-13 01:51:00) [6]

В хелпе написано, что AssignPrn объявлена в модуле Printers.
Кроме того, есть большое подозрение, что тебе нужна не эта функция, а Assign или AssignFile.

---

kizam   (2005-12-13 01:50:00) [7]

"s" обявлен как Textfile

---

Наверх