Ошибка I/O никак не могу обойти =(

← →
Forest Maniac (2004-02-05 22:34) [0]

Сначало код:
...
var
copy_end_importance,importance_copy : integer;
counterstr,n,t: string;
f:System.Text;
...
repeat
counterstr := IntToStr(importance_copy);
filecreate("File copy " + counterstr + ".txt");
n := "File copy " + counterstr + ".txt";
t := "text";
assignfile(f,n);
rewrite(f);
writeln(f,n);
closefile(f);
importance_copy := importance_copy + 1;
until importance_copy = copy_end_importance;

Я создаю программу типа "Блонктнота", никак не получаеться реализировать в ней ф-цию
сохранения несколько копий файлов. Выдаёт ошибку I/O, никак неполучаеться это обойти,
помогите плз. Очень нада.
Зы. нужно именно создание копий таким типом, всмысле TMemo неподойдёт =(.

← →
Александр из Минска © (2004-02-05 23:01) [1]

> f:System.Text;

попробуй f : TextFile;

← →
Forest Maniac (2004-02-05 23:09) [2]

не, тоже самое =(

← →
имя (2004-02-05 23:37) [3]

Удалено модератором
Примечание: Заработался что-то...

← →
Anatoly Podgoretsky © (2004-02-05 23:40) [4]

А нафига одновременно

filecreate("File copy " + counterstr + ".txt");
rewrite(f);

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

← →
Forest Maniac (2004-02-05 23:41) [5]

Непонял? С именем файла вроде всё правельно =/
Сначало создаём "File copy 0.txt", пишем в него инфу содержащаясю в переменной "t", закрываем его. Потом создаём фаил "File copy 1.txt", повторяем операцию. И так до тех пор ппока
until importance_copy = copy_end_importance.

← →
Forest Maniac (2004-02-05 23:43) [6]

Anatoly Podgoretsky
Спасибо тебе о великий!!!
Блин, а скок я мучался над этим!

Ошибка I/O никак не могу обойти =( Найти похожие ветки