Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Работа с файлом [D7, WinXP]

Страницы: < 1 2 3 >
wnix © (2008-05-13 18:47:00)
У меня не получается создать файл в папке
Посмотрите
Этот код создает файл
AssignFile(FInput,Inlink);
AssignFile(FOutput, 'Crypt\'+edit1.Text);
А этот не саздает и пишет что файла не существует.

AssignFile(f1,InLink);
Reset(f1) ;
AssignFile(f2,'UnCrypt\'+edit2.Text);
rewrite(f2) ;

Сергей М, (2008-05-13 19:45:00) [21]

> TStream и семейство штука куда более удобная.

Эт точно)

В любом случае, если где-то лажа, исключением по мозгам стукнет - мол. то-то и там-то не так и не сяк.

А с "древностью" еще и за директивами компайлера следить надо)

wnix (2008-05-13 19:43:00) [22]
Шифровщик
который пишу в эдите 1
Файл зашифровуется и сохраняется файл с таким же название и расширением но зашифрованный в паку Crypt
Выполняется = да

Разшифровщик
пишу файл(зашифрованый который находится в папке Crypt ) в едит2
Файл Расшифровуется и сохраняется файл с таким же название и расширением но зашифрованный в паку UnCrypt
Выполняется = нет

Palladin (2008-05-13 19:42:00) [23]
я хоть и незабыл древность, но тоже в приципе assignfile/reset использую очень редко, в основном для текстовых и в оссновном с целью readln %)

TStream и семейство штука куда более удобная... в купе с helper'ом...

Сергей М, (2008-05-13 19:39:00) [24]

> Anatoly Podgoretsky © (13.05.08 19:37) [26]

Кому как)

Сергей М, (2008-05-13 19:38:00) [25]
Ты можешь вразумительно рписать исх.данные и конечную цель ?)

wnix (2008-05-13 19:38:00) [26]
Сергей М, (13.05.08 19:38) [27]
Сейчса напишу.

wnix (2008-05-13 19:38:00) [27]
Удалено модератором

Anatoly Podgoretsky (2008-05-13 19:37:00) [28]

> а не этого AssignFile-дерьма, оставленного Борландом, видимо,
> для студентов-недоучек)

Это не дерьмо, ну разве для тех, кто не понимает.

wnix (2008-05-13 19:34:00) [29]
Подумал что надо использоват переменую с именем outLink
что заменить
AssignFile(f2,'UnCrypt\'+OutLink);

wnix (2008-05-13 19:33:00) [30]
как извлечь имя файла с раширением archiv:File;
в переменую OutLink: string;

Сергей М, (2008-05-13 19:31:00) [31]

> просто пишу прогу для себя

Вот и пиши с использованием TFileStream, а не этого AssignFile-дерьма, оставленного Борландом, видимо, для студентов-недоучек)

wnix (2008-05-13 19:29:00) [32]
Сергей М, (13.05.08 19:27) [20]
это не зачет
Я просто пишу прогу для себя.

wnix (2008-05-13 19:28:00) [33]
Я заметил если в edit1 тоже указываю полный путь к файлу то Не работает

Сергей М, (2008-05-13 19:27:00) [34]

> wnix

Бездумно тырить чужой код для отмазки на зачете/курсовом/экзамене/дипломе как минимум не есть корошо.

wnix (2008-05-13 19:24:00) [35]
я говорю может
проблема в том что

в edit1 просто записано 1.txt
а в edit2 зхаписано
E:\Programming\Company\Coder2\Coder1\Coder\Crypt\1.txt

Может надо как то отделить название файла с раширением

Palladin (2008-05-13 19:20:00) [36]
слушай, ты меня нервничать заставляешь, то у тебя первый код не работает, то второй, ты сам то хоть понимаешь что ты несешь?

в [2] у тебя все работает, в [4] оказывается уже не работает...

замучил, за метлой!

wnix (2008-05-13 19:15:00) [37]
Ну вставил просто на кнопку
ShowMessage(GetCurrentDir+'\UnCrypt');
посмотрел что путь туда Есть

wnix (2008-05-13 19:13:00) [38]
А куда вставить.

Palladin (2008-05-13 19:11:00) [39]
что бы глазами ты посмотрел на путь и удостоверился что его нет

wnix (2008-05-13 19:10:00) [40]
зачем показывать сообщение

Страницы: < 1 2 3 >

Наверх

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