Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];
ВнизОшибка 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
Спасибо тебе о великий!!!
Блин, а скок я мучался над этим!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c