Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание файла, папки, Как создать файл, папку?? 
:(
    Опции темы
Манкуни@нец
  Дата 26.4.2005, 13:10 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
1)Как через дельфи создать папку и текстовый файл??
2)Обясните пожалуйста как распечатать на принтере текст и таблицу StringGrid?По подробнее пожалуйста.
smile
  Вверх
~FoX~
Дата 26.4.2005, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

Репутация: 13
Всего: 68
А что нам справка говорит?
Код

uses Dialogs;
begin
  {$I-}
  { Get directory name from TEdit control }
  MkDir(Edit1.Text);
  if IOResult <> 0 then
    MessageDlg('Cannot create directory', mtWarning, [mbOk], 0, mbOk)
  else
    MessageDlg('New directory created', mtInformation, [mbOk], 0, mbOk);
end;


А поиск нам что дает?
Например тут
Способов полно например использовать TPrinter или QReport, CrystalReport или другую репортинговою систему. Можно в конце концов в Excel\Word\Access передать и оттуда печатать.


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
PavelPro
Дата 26.4.2005, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 4.4.2005
Где: Wild Wild West

Репутация: нет
Всего: нет
Для папки такой вариант:
Код

Createdir(\\здесь указываешь путь папки которую ты хочеш создать);
smile smile
к примеру
Код

createdir('c:\Test');
PM MAIL   Вверх
Zero
Дата 26.4.2005, 17:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24
Цитата
и текстовый файл??

Код

Var
  f:textfile;
...
assignfile(f,'<Путь на диске>');
rewrite(f);
....
closefile(f)
PM MAIL ICQ   Вверх
bartram
  Дата 26.4.2005, 18:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29
Цитата(Zero @ 26.4.2005, 17:55)
assignfile(f,'<Путь на диске>');
rewrite(f);
....
closefile(f)

Zero, а где сама запись в файл?
Вот так лучше :
Код

rewrite(f);
write(f,'Пример');
closefile(f);  

smile

Это сообщение отредактировал(а) bartram - 26.4.2005, 18:45


--------------------
В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image 
PM MAIL ICQ   Вверх
Alex
Дата 29.4.2005, 02:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
Модератор: Пожалуйста, один топик - один вопрос.


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
mvdr
Дата 29.4.2005, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


физик
***


Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42
Код

function CheckDir(Dir: string): Boolean;
begin
 Result := True;
 if Length(Dir) = 0 then begin
   Result:= False;
   Exit;
 end;
 Dir := ExcludeTrailingPathDelimiter(Dir);
 if (Length(Dir) < 3) and not DirectoryExists(Dir) then begin
   Result:= False;
   Exit;
 end;
 if (Length(Dir) < 3) or DirectoryExists(Dir)
     or (ExtractFilePath(Dir) = Dir) then
   Exit;
 Result := CheckDir(ExtractFilePath(Dir)) and CreateDir(Dir) and DirectoryExists(Dir);
end;


Эта функция создает и передает управление в указанную папку

и обращение к ней :
Код

Edit1.Text:=<путь до данной папки, на конце обязательно указать />;
CheckDir(Edit1.Text);
Memo1.Lines.SavetoFile('MyFile.txt');



--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
Alex
Дата 29.4.2005, 10:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
Femida, можно и первоисточник указывать http://vingrad.ru/DELPHI-DLP-002500 smile


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
mvdr
Дата 29.4.2005, 10:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


физик
***


Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42
Alex, запамятовал откуда smile у меня в виде текстового файла валялась - вот и ... Просто ты поскромничал и не стал писаться


--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0519 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.