AssignFile

DimSher · Отправлено: **05:33, 26-05-2003** | #2

khvalera
А в чем проблема?
OpenFile(1) - Readln - OpenFile(2) - Writeln
(в коде конечно не так, но это основная идея)
или какие-то заморочки с проверкой, а тот ли это файл, и т.д.?

noname00.pas · Отправлено: **11:18, 26-05-2003** | #3

Dmitry Sher
А по-моему были какие-то более умные функции типа Rename. :-)

Boss Linuxoid · Отправлено: **19:15, 26-05-2003** | #4

khvalera

Как же ты откроешь файл, не зная его имени?

Добавлено:

khvalera

Как же ты откроешь файл, не зная его имени?

khvalera · Отправлено: **20:30, 26-05-2003** | #5

Извиняюсь сначала не открыть а переименовать!

Левая прога делает файлы типа v01.01.03.*, и естественно дата будет разной
расширение она тулит почему-то тоже разное. Задача моей программы переименовать неизвестные файлы в определенные имена и собрать их содержимое в один файл.

shurikan · Отправлено: **01:00, 27-05-2003** | #6

khvalera
Тогда используй FindFirst и FindNext. В Дельфёвом хелпе они хорошо описаны и пример есть. Найдёшь все такие файлы и сольёшь в один.

DimSher · Отправлено: **13:05, 27-05-2003** | #7

noname00.pas

Цитата:

А по-моему были какие-то более умные функции типа Rename. :-)

Да, но эта функция переименует файл, а надо содержимое добавить в конец другого файла (как я понял )

khvalera · Отправлено: **11:18, 30-05-2003** | #8

Вроде бы заработало!
Теперь может, кто посоветует, как лучше переместить содержимое из одного файла в другой.
И как в Delphi делается задержка на определенное время, аналог Pascal Delay.

DimSher · Отправлено: **06:00, 02-06-2003** | #9

khvalera

Цитата:

Теперь может, кто посоветует, как лучше переместить содержимое из одного файла в другой.

Посмотри мой первый пост

khvalera · Отправлено: **15:17, 02-06-2003** | #10

Сразу благодарю всех за помощь, самому пришлось бы искать долго и нудно.
Может кто подскажет еще?
Если файл находится в каталоге, все работает ОК, а если оно появляется после
запуска программы последняя просто невидит его и работает до посинения.

DirAval:='c:\Aval\Rip\';
DirWClient:='c:\Agent\Rip\';
DirAgent:='c:\Agent\Rip\';

Data:=Edit1.Text;
FindFirst(DirWClient+'v*.*',Attrs,Files);
OldName:=Files.Name;
If Files.Name <>'v'+Data+'_1.zzz' then
repeat
FindNext(Files); {на ... он сдался}
until OldName > '';
NewName:='v'+Data+'_1.zzz';
RenameFile(DirWClient+OldName,DirWClient+NewName);

Что не кото незнает как в Delphi делается задержка???