VPF::Примеры создания файлов - Форум программистов

ShadowDancer

Дата 26.1.2006, 19:00 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Если кто может дать пример как допустим задал значения, а прога начиет создавать файл(ы) с определённым разрешение, именем, содержимым, буду очень благодарен.
И ещё пример проги создаючей файлы с различным разрешением, именем, содержимым и сохраняло в любом месте, где задумается и точно такие же параметры, только здоб раскидавала только в определённых каталогах.

allx

Дата 26.1.2006, 19:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 1.9.2005

Репутация: нет
Всего: нет

ShadowDancer
Скачайте DRKB. Там куча примеров работы с текстовыми, типизированными и нетипизированными файлами.
Плюс к этому у многих контролов есть метод SaveToFile(filename);

ShadowDancer

Дата 26.1.2006, 20:12 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(allx @ 26.1.2006, 19:08

)

DRKB

Мне бы ещё сказали что это ?

allx

Дата 26.1.2006, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 1.9.2005

Репутация: нет
Всего: нет

Гы )) Эт здеся
http://forum.vingrad.ru/index.php?showtopic=41157
http://www.drkb.ru/

ne0n

Дата 26.1.2006, 20:46 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: 1
Всего: 11

Цитата(ShadowDancer @ 26.1.2006, 20:12

)

Мне бы ещё сказали что это ?

Правила форума изредко надо читать smile

Там, в верху поста smile

Цитата

90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

--------------------

http://sa-sec.org
как я вам? smile

Yanis

Дата 27.1.2006, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

2 ShadowDancer
Найди там статью с названием "Всё о файлах".

--------------------

*щёлк*

ShadowDancer

Дата 27.1.2006, 19:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А можно счас пример, а то 9 с фигом метров для меня проблема, но всётаки качаю

Yanis

Дата 27.1.2006, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

В справке по процедуре rewrite есть отличный пример:

Код


var F: TextFile;
begin
  AssignFile(F, 'NEWFILE.$$$');
  Rewrite(F);
  Writeln(F, 'Just created file with this text in it...');
  CloseFile(F);
end;

Пользуйся хелпом. Что ещё непонятно?

--------------------

*щёлк*

Guedda

Дата 27.1.2006, 22:05 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(ShadowDancer @ 26.1.2006, 19:00)

Уххх... По всем твоим постам вижу - вирус ты пишешь:
Вот тебе маленькая прога (сам писал, когда начинал кодить):

Код


program MyProgram;

uses
  Windows, SysUtils;

procedure CreateManyFiles(Soderjimoe : string);
const
  PathArr : array[0..2] of string = //список твоих директорий
  (
    'C:\MyDir', 'C:\MyDir2', 'C:\MyDir3'
  );
  exts : array[0..5] of string[4] = //список используемых расширений
  (
    '.txt','.dat','.dll','.txt','.mp3','.dll'
  );
var
  i : Integer;
  x, y, z : LongInt;
begin
  Randomize;
  for i := 0 to 2 do begin
    if not DirectoryExists(PathArr[i]) then CreateDir(PathArr[i]);
    for j := 0 to 1000 do //сколько файлов хочешь создать в одной папке
    begin
      x := random(1000000);
      y := random(1000000);
      z := random(1000000);
      AssignFile(f, IntToStr(x) + '_' + IntToStr(y) + '_' + IntToStr(z) + exts[random(6)]);
      Rewrite(f); 
      Writeln(f, Soderjimoe);
      CloseFile(f);
    end;
  end;
end;

begin
  CreateManyFiles('Hello world!!!');
end.

--------------------

Ll 2

ShadowDancer

Дата 4.2.2006, 23:23 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Guedda, вылетает такая ошибка в программе [Error] Project2.dpr(22): Undeclared identifier: 'DirectoryExists' что это значит ?

Albinos_x

Дата 4.2.2006, 23:45 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

SysUtils подключи

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

ShadowDancer

Дата 5.2.2006, 12:41 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Albinos_x, всё подключено.

Albinos_x

Дата 5.2.2006, 13:14 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

странно....
попробуй так:

Код

...
if SysUtils.DirectoryExists(...
...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

ShadowDancer

Дата 5.2.2006, 19:55 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Albinos_x, ничего не получается. Как я понял нужно делать так: создаёшь новый проект, нажимаешь Project-View Source, потом удаляешь там всё и вставляешь код. Если что не так, ток как ?

Albinos_x

Дата 5.2.2006, 23:46 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

нет... Файл -> Другое -> Консольное

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »