Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];

Вниз

Работа с файлами   Найти похожие ветки 

 
dm37   (2003-03-18 12:08) [0]

Подскажите, как мне писать в файл, что-бы вновь вставленные строки быле не в конце, а в начале файла.
Спасибо.


 
jack128   (2003-03-18 14:27) [1]

begin
with TStringList.Create do
try
LoadFromFile("c:\test.txt");
if Count <> 0 then
Insert(0,"my string");
else
Add("my string");
SaveToFile("c:\test.txt");
finally
Free;
end;

end;


 
Андрей Сенченко   (2003-03-18 14:30) [2]

И в чем проблема ? Напиши в начало, а затем допиши туда все остальное.


 
dm37   (2003-03-18 14:53) [3]

Этот файл будет использоваться для ведения лога(и размер может быть большим). Кроме варианта который предложил jack128 больше ничего не сделать?


 
Андрей Сенченко   (2003-03-18 15:11) [4]

Я все-равно не понимаю - в чем проблема ?
Пиши лог в текущий TStringList, а для показа его и сохранения в файл при завершении работы - инвертируй цикл перебора строк


 
Palladin   (2003-03-18 15:42) [5]


> dm37 (18.03.03 14:53)

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.006 c
14-100458
Писец
2003-03-14 18:39
2003.03.31
письмо-капец


4-100504
Antosya
2003-01-27 14:48
2003.03.31
Как мне словить надатие комбинации клавиш?


8-100340
Hirara
2002-12-25 22:08
2003.03.31
Tess - объекты


1-100204
DenKop
2003-03-18 23:04
2003.03.31
png, jpg, bmp


14-100446
Adolf
2003-03-14 16:44
2003.03.31
генерация случайных чисел на Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский