Главная страница
    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.45 MB
Время: 0.009 c
1-49497
serg128
2004-01-03 12:51
2004.01.16
Как закрывать MDI окна по клавише Esc?


8-49651
Kremen
2003-09-15 11:28
2004.01.16
Как установить текущую точку в Канвасе на форме?


7-49783
MAXHO
2003-10-27 18:06
2004.01.16
Help Async


1-49578
Александр
2004-01-05 15:56
2004.01.16
Исходники


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