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

Вниз

Записать в файл   Найти похожие ветки 

 
Gnom   (2004-01-05 23:14) [0]

Добрый день, подскажите плз
вот огрызок тривиального кода

var F:textfile;
begin
assignfile(f,"123.txt");
append(f);

так вот, как мне изменить самую первую строчку этого файла, не трогая следущие строчки...?


 
Clift   (2004-01-05 23:21) [1]

Seek()
см.Help


 
Eugene   (2004-01-05 23:21) [2]

Можно, например так: ВАР Ф:ТЕКСТФИЛЕ;


 
Gnom   (2004-01-05 23:34) [3]

>Clift

толи у меня хэлп урезанный толи я тупой, но seek нету((
а как им пользоваться?
в параметрах ему нужно указать f:texfile и какойто N , что этот N определяет?


 
Gnom   (2004-01-05 23:35) [4]

мля и вообще seek с текстовыми файлами не работает почемуто


 
raidan   (2004-01-06 00:04) [5]

А он с тектовыми файлами и не обязан работать.
А сброс файла с переходом на первую строку делается reset(f), а не append(f)...
Вот только записать ты не сможешь, только прочитать...
Поэтому придется, скорее всего, переписывать весь файл или отказаться от текстового и перейти к нетипизированному...


 
Eugene1501   (2004-01-06 03:03) [6]

var
AFile:TStrings;
begin
AFile:=TStringList.Create;
AFile.LoadFromFile("123.txt);

AFile.Strings[0]:="Здесь изменяешь первую строку"

...

AFile.SaveToFile("123.txt);
AFile.Free;
end;

По моему это самый простой способ.



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

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

Наверх





Память: 0.46 MB
Время: 0.017 c
1-49596
Вован_
2004-01-05 12:57
2004.01.16
Как получить код последней нажатой клавиши ?


3-49436
Michail Dalakov
2003-12-18 15:42
2004.01.16
BDE и MSSQL


1-49642
Sandman25
2004-01-04 12:30
2004.01.16
published в форме


1-49541
Ruba
2004-01-02 15:33
2004.01.16
Как перевести string в математическое выражение?


3-49387
jack128
2003-12-20 15:25
2004.01.16
Проблема с запросом





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