Files

← →
PaRL (2002-04-28 12:28) [0]

Как программно создать папку и поместить в неё программно созданный файл?

← →
Song (2002-04-28 14:54) [1]

Создать - CreateDir(), ForceDirectories()
Поместь - по разному CopyFile(), MoveFile(), MoveFileEx(), AssignFile() .. Write() - зависит от типа файла и Ваших предпочтений.

← →
PaRL (2002-04-28 19:29) [2]

> зависит от типа файла

Спасибо. Если что я смогу разобраться, но *.dat он спокойно поместит?

← →
Song (2002-04-28 21:56) [3]

Да нет, Вы не поняли. Можно поместить любой файл. От типа зависит каким средством воспользоваться.

← →
PaRL (2002-05-01 09:08) [4]

Создать то как?

← →
Song (2002-05-01 09:48) [5]

CreateFile()

← →
PaRL (2002-05-01 10:09) [6]

Английский я и сам знаю :)
Там параметров 6-7 типа всяких Cardinal, пример то можно?

← →
Song (2002-05-01 10:49) [7]

Слушайте, PaRL © (01.05.02 10:09), не страдайте фигнёй, скажите что за файл Вам нужно создать. Что там будут за данные и где Вы их возьмёте.

← →
Anatoly Podgoretsky (2002-05-01 11:10) [8]

И как туда загонять собираешься

← →
PaRL (2002-05-01 13:37) [9]

Обычный текстовой файл.
Текстовые данные.
Возьму из Memo.
Загоню Writeln"ом.

Стихи :)

← →
Anatoly Podgoretsky (2002-05-01 13:41) [10]

Тогда создать нужно процедурой Rewrite

← →
Song (2002-05-01 14:03) [11]

AssignFile() .. ReWrite() .. WriteLn() .. CloseFile()

← →
PaRL (2002-05-01 14:41) [12]

Блин...
СОЗДАТЬ ФАЙЛ. Чтобы ярлык появился в папке.
Эти AssignFile просто присваивают переменной имя файла.

← →
Anatoly Podgoretsky (2002-05-01 15:04) [13]

Задай по новому вопрос

← →
VID (2002-05-01 15:47) [14]

а почему бы не сделать так:
Memo1.lines.savetofile (FileNAme) ?

← →
Jin (2002-05-01 15:54) [15]

Song
читай хелп
РеВрите(ФайловаяРеременная) - открывает файл на запись, если файл отсутствует, то она пытается его создать.

← →
Anatoly Podgoretsky (2002-05-01 16:41) [16]

Так теперь вообзе не ясно толь файл создать толи ярлык

← →
Song (2002-05-01 17:15) [17]

2Jin (01.05.02 15:54)
Это Вы читайте хэлп. Открывает файл на запись Reset, а вот ReWrite открывает на запись безусловно, если такой файл был, он затирается. Ну развели дискуссию по такой ерунде...
Если кто мне скажет что ReWrite() не создаёт файл, пускай пойдёт камень поищёт.

← →
Song (2002-05-01 17:17) [18]

Извиняюся, сам ошибся:
"открывает файл на чтение Reset" далее по тексту

← →
Jin (2002-05-01 18:22) [19]

Song я не цитировал а писал ответ человеку и не вижу где я ошибся.
А ресет типизированого файла позволяет производить запись, а вот с текстовыми такого не получится

← →
PaRL (2002-05-01 18:26) [20]

Да, ReWrite создаёт файл, всем спасибо.

← →
VID (2002-05-01 19:51) [21]

а ветка, тем временем, перешла в "потрепаться" :)

← →
PaRL (2002-05-01 19:53) [22]

Да вообще... растрепались тут некоторые :)

← →
Aleks1 (2002-05-02 03:57) [23]

> PaRL
А как же, все-таки, насчет ярлыка?

Сухов:
"А как насчет Джавдета? Может помочь?
Саид:
- Нет. Джавдет мой. Встретишь, не убивай его!"
:)

← →
PaRL (2002-05-02 16:04) [24]

Вчера вот специально всё перерыл, но нашёл таки...
CreateFile(PChar(SaveDialog.FileName), GENERETIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

Только вот то что в скобках я не знаю, может кто расшифрует?

← →
Aleks1 (2002-05-03 03:47) [25]

Расшифровать можем. Но замечание
PaRL © (01.05.02 14:41)
вызывает сомнение, что поймешь.
Советую, все-таки, сначала, прочитать хелп по AssighFile, Reset? Rewrite, поскольку именно их "инкапсулирует" функция CreateFile.

Первый параметр - имя файла. Поскольку речь, до сих пор, шла именно о файле, то это просто имя файла. (с путем или без).
Второй параметр - желаемый способ доступа к файлу.
Третий - модель "совместного доступа к файлу".
Четвертый - у тебя nil.
Пятый - определяет, что следует делать, в случаях, когда такого файла еще нет, и тогда, когда такой файл уже есть.
Шестой - указывает какие аттрибуты следует установить данному файлу
Седьмой - позволяет создать "похожий" файл.

← →
PaRL (2002-05-03 15:54) [26]

Спасибо, как нестранно я всё понял. Блин, почему же я такой тупой.

Files Найти похожие ветки