Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Создание файла, папки

Автор: Манкуни@нец 26.4.2005, 13:10

1)Как через дельфи создать папку и текстовый файл??
2)Обясните пожалуйста как распечатать на принтере текст и таблицу StringGrid?По подробнее пожалуйста.
smile

Автор: ~FoX~ 26.4.2005, 13:42

А что нам справка говорит?

Код


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;

А поиск нам что дает?
http://forum.vingrad.ru/index.php?showtopic=49675
Способов полно например использовать TPrinter или QReport, CrystalReport или другую репортинговою систему. Можно в конце концов в Excel\Word\Access передать и оттуда печатать.

Автор: PavelPro 26.4.2005, 15:27

Для папки такой вариант:

Код


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

к примеру

Код


createdir('c:\Test');

Автор: Zero 26.4.2005, 17:55

Цитата

и текстовый файл??

Код


Var
  f:textfile;
...
assignfile(f,'<Путь на диске>');
rewrite(f);
....
closefile(f)

Автор: bartram 26.4.2005, 18:44

Цитата(Zero @ 26.4.2005, 17:55)

assignfile(f,'<Путь на диске>');
rewrite(f);
....
closefile(f)

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

Код


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

Автор: Alex 29.4.2005, 02:22

Модератор: Пожалуйста, один топик - один вопрос.

Автор: mvdr 29.4.2005, 09:59

Код


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');

Автор: Alex 29.4.2005, 10:20

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

Автор: mvdr 29.4.2005, 10:42

Alex, запамятовал откуда smile

у меня в виде текстового файла валялась - вот и ... Просто ты поскромничал и не стал писаться