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

Вниз

строки   Найти похожие ветки 

 
Mike   (2004-06-09 20:39) [0]

Добрый вечер.Подскажите пожалуйста как менять строки в текстовом файле
element 01
element 02
element 03
element 04
element 05
Например element 02 на element 07
Спасибо.


 
Palladin ©   (2004-06-09 20:42) [1]

Readln/Writeln


 
Anatoly Podgoretsky ©   (2004-06-09 20:44) [2]

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


 
begin...end ©   (2004-06-09 20:52) [3]

ИМХО, можно использовать TStringList:
LoadFromFile, IndexOf, Strings, SaveToFile


 
SergP ©   (2004-06-09 20:54) [4]

В некоторых случаях можно и так:

var
a:string;
begin
 with TStringList.Create do
   try
     LoadFromFile("filename.txt");
     a:=Strings[1];
     strings[1]:=strings[6];
     strings[6]:=a;
     SaveToFile("filename.txt");
   finally
     Free;
   end;
end;


 
SergP ©   (2004-06-09 20:55) [5]

В некоторых случаях можно и так:

var
a:string;
begin
 with TStringList.Create do
   try
     LoadFromFile("filename.txt");
     a:=Strings[1];
     strings[1]:=strings[6];
     strings[6]:=a;
     SaveToFile("filename.txt");
   finally
     Free;
   end;
end;

Правда это поменяет местами 2 и 7 строки... Я вроде сначала так проблему понял...



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

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

Наверх





Память: 0.45 MB
Время: 0.061 c
6-1082355963
Piter
2004-04-19 10:26
2004.06.27
Статья про сокеты


8-1080665837
DelBoy
2004-03-30 20:57
2004.06.27
Создание Лоссо


1-1087117744
Snip
2004-06-13 13:09
2004.06.27
Цвет TPanel


1-1087143779
AbLaZe
2004-06-13 20:22
2004.06.27
Меню


11-1075928030
Sniper
2004-02-04 23:53
2004.06.27
альтернатива RichEdit1.SelAttributes.Color := clRed; в KOL?





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