![]() |
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]() ![]() ![]() |
|
lider07 |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 80 Регистрация: 11.6.2003 Где: Бишкек Репутация: нет Всего: нет |
данный код копирут файлы и заменяет их (пез предупреждения) вопрос: как сделать чтобы при копирование файл дописывался, допустим в первоночальном файле было значение 10 а вфайле который копировался 15 и в итоге надо чтобы содержимое этих файлов ссумировалось. procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer); var shellinfo: TSHFileOpStructA; begin with shellinfo do begin wnd := Application.Handle; wFunc := Flags; pFrom := PChar(fromFile); pTo := PChar(toFile); fFlags := FOF_NOCONFIRMATION; end; SHFileOperation(shellinfo); end; procedure TForm1.Button1Click(Sender: TObject); begin begin ShellFileOperation('C:\Program Files\d\*.txt', '\\Cs_server\C', FO_COPY); Form1.Timer1.Enabled:=true; заранее СПАСИБО |
|||
|
||||
Vit |
|
|||
![]() Vitaly Nevzorov ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
-------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
lider07 |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 80 Регистрация: 11.6.2003 Где: Бишкек Репутация: нет Всего: нет |
а пример можно - пожайлуста
|
|||
|
||||
0FF |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 50 Регистрация: 10.8.2003 Репутация: нет Всего: нет |
Нет lider07 через Шэл копировать не надо, да и вообще сним лучше не связывайся.
|
|||
|
||||
p0s0l |
|
|||
![]() Г-н Посол ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 3668 Регистрация: 13.7.2003 Где: 58°38' с.ш. 4 9°41' в.д. Репутация: 58 Всего: 112 |
0FF - по-моему, lider07 хотел что-то другое...
lider07 я не совсем понял суть вопроса, можешь привести примерчик того, что тебе надо (до и после) ? -------------------- С уважением, г-н Посол. |
|||
|
||||
<Spawn> |
|
|||
![]() Око кары:) ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
p0s0l
Ему нужно, чтобы было так: открыть файл; прочитать значение, находящееся в нем; прибавить к этому значению другое; сохранить все в этом файле. -------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
p0s0l |
|
|||
![]() Г-н Посол ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 3668 Регистрация: 13.7.2003 Где: 58°38' с.ш. 4 9°41' в.д. Репутация: 58 Всего: 112 |
Файл состоит только из одного числа ?
-------------------- С уважением, г-н Посол. |
|||
|
||||
0FF |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 50 Регистрация: 10.8.2003 Репутация: нет Всего: нет |
Ops! Недочитал топик. |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Общие вопросы" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |