Текущий архив: 2006.01.01;
Скачать: CL | DM;

Вниз

создание файла   Найти похожие ветки 

← →
kizam   (2005-12-13 01:49) [0]

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

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


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

---

← →
kizam   (2005-12-13 01:50) [1]

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

---

← →
Джо ©   (2005-12-13 01:51) [2]

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

---

← →
Джо ©   (2005-12-13 01:52) [3]

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

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

---

← →
kizam   (2005-12-13 02: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 02:03) [5]

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

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

---

← →
kizam   (2005-12-13 02:09) [6]

ешо вопрос :)

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

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:37) [7]


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


---

Страницы: 1 вся ветка

Текущий архив: 2006.01.01;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.025 c