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

Вниз

как в файл строки в начало дописывать?   Найти похожие ветки 

 
Dysan ©   (2005-08-24 18:14) [0]

Не подскажите как лучше в текстовый файл строки писать не в конец а как обычно они добавляються например с помощью Append(); а в начало файла?
есть конечно вариант путём перекидывания из файла в файл но мне этот способ кажеться кривоватым.


 
Alexander Panov ©   (2005-08-24 18:23) [1]

Как ни странно, это и есть правильный путь.


 
TStas ©   (2005-08-24 18:26) [2]

А это подойдет?
var
list:TStringList;
path:String;
begin
list:=TStringList.Create;
list.LoadFromFile(path);
list.Insert(str, 0);
list.SaveToFile(path);
list.Free;
end;


 
Dysan ©   (2005-08-24 18:28) [3]

о! что-то подобное наверное будет лучшим вариантом !
спасибо!


 
ocean ©   (2005-08-24 18:28) [4]

Reset + Seek, см. в Help
По умолчанию Reset открывает файл на чтение и запись:
FileMode: Byte = fmOpenReadWrite;
Seek ставит указатель в нужную позицию, т.е. в начало. Далее - Write


 
Плохиш ©   (2005-08-24 18:36) [5]


> ocean ©   (24.08.05 18:28) [4]

1. Речь про текстовые файлы
2. Переписывать начала файла вроде никто не просил.



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

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

Наверх





Память: 0.45 MB
Время: 0.011 c
6-1117029648
Delphi_is_cool
2005-05-25 18:00
2005.09.18
TTcpClient режим bmNonBlocking.


2-1123573788
rolex
2005-08-09 11:49
2005.09.18
В событии Form1 onShow пишу Form2.ShowModal, но Form1 не показыва


1-1125267132
vadim1
2005-08-29 02:12
2005.09.18
TReplica example


3-1123074767
FireMan_Alexey
2005-08-03 17:12
2005.09.18
Не подскажите как можно программно установить INTERBASE


14-1124918886
ronyn
2005-08-25 01:28
2005.09.18
Сколько стоит ЧП организовать?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский