Дописать строку в начало файла!

saxix
Дата: 06.12.2007 15:09:26
Как выполнить сабж?
Мимопроходящий
Дата: 06.12.2007 15:12:28

Привет, saxix!
Ты пишешь:

saxix
s> Как выполнить сабж?
1. создать новый файл.
2. записать в него строку.
3. открыть старый файл.
4. перелить из старого в новый.
5. закрыть оба файла.

зы: аминь!

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4

eNose
Дата: 06.12.2007 15:19:22
Мимопроходящий

Привет, saxix!
Ты пишешь:

saxix
s> Как выполнить сабж?
1. создать новый файл.
2. записать в него строку.
3. открыть старый файл.
4. перелить из старого в новый.
5. закрыть оба файла.

зы: аминь!
в сад!
Мимопроходящий
Дата: 06.12.2007 15:23:14

Привет, eNose!
Ты пишешь:

eNose
e> в сад!
тебе там скучно?

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4

eNose
Дата: 06.12.2007 15:26:19
конечно скучно :)

1. создать новый файл.
2. записать в него строку.
3. воспользоваться командой copy file1+file2 file1
saxix
Дата: 06.12.2007 15:26:27
Мимопроходящий

Привет, saxix!
Ты пишешь:

saxix
s> Как выполнить сабж?
1. создать новый файл.
2. записать в него строку.
3. открыть старый файл.
4. перелить из старого в новый.
5. закрыть оба файла.

зы: аминь!

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4

Ну это я и сам догадывался. А другим способом. Есть функция, чтобы поставить указатель в начало файла после выполнения Append?
eNose
Дата: 06.12.2007 15:27:34
указатель-то ты поставишь, но данные будут "replace", а не "insert"
Карабас Барабас
Дата: 06.12.2007 15:28:07
saxix
s> Есть функция, чтобы поставить указатель в начало файла после
s> выполнения Append?
файл - это тебе не стринглист !

Posted via ActualForum NNTP Server 1.4

Anatoly Podgoretsky
Дата: 06.12.2007 15:35:31
Файловые потоки позволят обойтись одним файлом.
Если же файл маленький, то StringList
Warstone
Дата: 06.12.2007 15:42:53
Anatoly Podgoretsky
Файловые потоки позволят обойтись одним файлом.
Если же файл маленький, то StringList
Вы прям стали поражать меня своей емкостью ответов и отсутствию флуда. (Без обид - я серьёзно.) А по сабжу: Если фаил маленький:
AssignFile(f,'<Что вам надо>');
Reset(F,1);
Size:=FileSize(F);
GetMem(P, Size);
Blockread(F, P, Size); // Тока тут не помню, возможно надо P^ дать.
Seek(F, 0);
BlockWrite(F, S[1], Length(S));
BlockWrite(F, P, Size);  // Ну и тут тож, возможно P^
CloseFile(F);