|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как скопировать файл ?
Код:
var p,pk: string; begin p:='C:\file.dbf'; //Исходный файл p:='C:\123\' ; //Место куда необходимо скопировать (тут должен быть код о котором я даже неподазреваю =)) end; Заранее спасибо Последний раз редактировалось lmikle, 04.08.2012 в 00:15. |
#2
|
||||
|
||||
http://googletohelp.ru/?q=%D0%BA%D0%...+%D0%B2+delphi
1-ая ссылка: http://delphiexpert.ru/view_lesson.php?id=45 Код:
CopyFile(Pchar('D:\index.txt'), Pchar('D:\1\1.txt'), true) Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Код:
p,pk: string; begin p:='C:\file.dbf'; //Исходный файл pk:='C:\123\' ; //Место куда необходимо скопировать CopyFile(Pchar(p), Pchar(pk), true); end; в папке 123 ничего не появляется , просто глухо Последний раз редактировалось lmikle, 04.08.2012 в 00:15. |
#4
|
|||
|
|||
точнее вот код
Код:
Table3.Active:=false; dir:=MyDir+'\db\export.dbf'; dirk:=MyDir+'\Выгрузка\export.dbf'; CopyFile(PChar(dir),PChar(dirk), true); Table3.Active:=true; Последний раз редактировалось lmikle, 04.08.2012 в 00:16. |
#5
|
|||
|
|||
Цитата:
Код:
var e: LongWord; dir, dirk: AnsiString; ... begin ... dir:=MyDir+'\db\export.dbf'; dirk:=MyDir+'\Выгрузка\export.dbf'; e:=CopyFileA(PChar(dir), PChar(dirk), True); if e=NO_ERROR then begin MessageDlg('Файл успешно скопирован', mtInformation, [mbOK], 0); end else begin MessageDlg('При копировании ошибка: "'+SysErrorMessage(e)+'"', mtInformation, [mbOK], 0); end; ... end; |
#6
|
||||
|
||||
О, Боже...
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#7
|
||||
|
||||
просьба удалить сообшение
Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 03.08.2012 в 11:33. |
#8
|
||||
|
||||
Цитата:
Цитата:
Пишу программы за еду. __________________ |
#9
|
|||
|
|||
Цитата:
Ну тогда так: Код:
var dir, dirk: AnsiString; ... begin ... dir:=MyDir+'\db\export.dbf'; dirk:=MyDir+'\Выгрузка\export.dbf'; if CopyFileA(PChar(dir), PChar(dirk), True) then begin MessageDlg('Файл успешно скопирован', mtInformation, [mbOK], 0); end else begin MessageDlg('При копировании ошибка: "'+SysErrorMessage(GetLastError)+'"', mtInformation, [mbOK], 0); end; ... end; |
Этот пользователь сказал Спасибо MiraLaklamon за это полезное сообщение: | ||
yasenkov (03.08.2012)
|
#10
|
|||
|
|||
Цитата:
[Error] Unit1.pas(501): Incompatible types: 'Cardinal' and 'LongBool' |
#11
|
||||
|
||||
Цитата:
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#12
|
|||
|
|||
Цитата:
|
Этот пользователь сказал Спасибо MiraLaklamon за это полезное сообщение: | ||
yasenkov (03.08.2012)
|
#13
|
|||
|
|||
Цитата:
MiraLaklamon Спасибо огромное !!! |
#14
|
||||
|
||||
Здрасьте. Сапсем забросил дельфи, и как следствие - забыл даже азы
Вопрос: в каком месте мне объявлять свой тип данных? До Иплиментейшн? Каждый думает, что он не каждый.(с) |
#15
|
|||
|
|||
блин ,я жду не дождусь вопроса "Как запустить дельфи?"
тогда, наконецто, настанет апофеоз дибилизма в разделе "начинающим" |
Этот пользователь сказал Спасибо robt за это полезное сообщение: | ||
DJ PhoeniX (04.08.2012)
|