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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вопрос про копированние, как ? 
:(
    Опции темы
lider07
Дата 10.8.2003, 06:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 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;

заранее СПАСИБО
PM MAIL ICQ MSN   Вверх
Vit
Дата 10.8.2003, 07:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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
PM MAIL WWW ICQ   Вверх
lider07
Дата 10.8.2003, 07:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 11.6.2003
Где: Бишкек

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



а пример можно - пожайлуста
PM MAIL ICQ MSN   Вверх
0FF
Дата 10.8.2003, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Нет lider07 через Шэл копировать не надо, да и вообще сним лучше не связывайся.

Код
Function FullDirectoryCopy(SourceDir, TargetDir:String; StopIfNotAllCopied, OverWriteFiles:Boolean):Boolean;
Var SR:TSearchRec;

function zCreateDir(const Dir: string): Boolean;
begin
  Result := Windows.CreateDirectory(PChar(Dir), nil);

end;

 Function LocalCopy:Boolean;
 begin
   Result := True;
   IF SR.Attr = faDirectory then
   begin
     IF (SR.NAME<>'.') and (SR.NAME<>'..') and (SR.NAME<>'') then
       Result := FullDirectoryCopy(SourceDir+SR.Name, TargetDir+SR.NAME, StopIfNotAllCopied, OverWriteFiles)
   end
   else
     IF not (not OverWriteFiles and FileExists(TargetDir+SR.Name)) then
       Result := CopyFile( Pchar(SourceDir+SR.Name), Pchar(TargetDir+SR.Name), False)
     else Result := True;
 end;

 Procedure CloseSR;
 begin
   try SysUtils.FindClose(SR) except end;
 end;

begin
 Result := False;
 SourceDir := IncludeTrailingBackslash (SourceDir);
 TargetDir := IncludeTrailingBackslash(TargetDir);

 if not FileOrDirExists(TargetDir) then
 IF not zCreateDir(TargetDir) then Exit;

//  IF not DirectoryExists(SourceDir) then Exit;
//  CloseSR;             ///

 IF FindFirst(ExcludeTrailingBackslash(SourceDir+'\*.*'), faDirectory, SR) = 0 then
 begin
   Result := LocalCopy;
   IF Not Result then
     IF StopIfNotAllCopied then begin CloseSR; Exit; end;
   while FindNext(SR) = 0 do
   begin
     Result := LocalCopy;
     IF Not Result then
       IF StopIfNotAllCopied then begin CloseSR; Exit; end;
   end;
   CloseSR;
 end;
 CloseSR;
end;


PM MAIL   Вверх
p0s0l
Дата 10.8.2003, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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



0FF - по-моему, lider07 хотел что-то другое...

lider07 я не совсем понял суть вопроса, можешь привести примерчик того, что тебе надо (до и после) ?



--------------------
С уважением, г-н Посол.
PM   Вверх
<Spawn>
Дата 10.8.2003, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


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

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



p0s0l
Ему нужно, чтобы было так: открыть файл; прочитать значение, находящееся в нем; прибавить к этому значению другое; сохранить все в этом файле.



--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
p0s0l
Дата 10.8.2003, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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



Файл состоит только из одного числа ?


--------------------
С уважением, г-н Посол.
PM   Вверх
0FF
Дата 10.8.2003, 20:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Цитата(p0s0l @ 10.8.2003, 13:23)
0FF - по-моему, lider07 хотел что-то другое...

Ops! Недочитал топик.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




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


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

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