дописать в начало файла

305

28 мая 2003 года

Kashuk

385 / / 21.02.2003

К сожалению нельзя дописать в начало.
Ты считай всё содержимое в переменную, припустим 'Str', потом перепиши файл, а посли этого допиши туды данные с переменной 'Str'

371

28 мая 2003 года

Non_prog

193 / / 20.03.2000

Что ты имеешь в виду "нельзя дописать в начало файла" ?

1.6K

28 мая 2003 года

JlamePoK

47 / / 02.02.2003

я незнаю,а как тогда логи создаются...ведь все в exception не засунешь...

305

28 мая 2003 года

Kashuk

385 / / 21.02.2003

Ты не обращал внимание на размер лог файлов, он обычно ограничевается?, как думаеш для чего?
Ну мне кажется что они пишутся так:

Создаём переменную и записуем содержимое файла:

Ни что то вроде такого
cp* new char[размер файла]

потом переписываеш его с нужными параметрами, а потом дописываеш cp.

Я б зделал так. Если найдёш другой более оптимальный вариант то поделись :)

989

28 мая 2003 года

Vlad232ua

182 / / 02.04.2003

void __fastcall TForm1::Button1Click(TObject *Sender)
{

AnsiString Result;

// ...... кусок проги
Result+="Оба-на нестандартная ситуация";
//......
//......

Result+="Что за дела? Еще одна";



TStringList *MyStringList = new TStringList;


MyStringList->LoadFromFile("My_Log.Log");
// считали лог файла (естественно он уже есть, или создай если нет)

MyStringList->Insert(0,Result);
// вставили строки со своей лабудой

MyStringList->SaveToFile("My_Log.Log");
// перезаписали файл


RichEdit1->PlainText = true;
RichEdit1->Lines->LoadFromFile("My_Log.Log");
// отобразили в RichEdit

//...
//...

}

Если нужно наворчиваешь сервис - старое чистишь, архивируешь и т.д. так как лог на десять гиг это тупняк (или тогда не работай через String)