Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

Как изменить текстовой файл?   Найти похожие ветки 

 
Владимир С.   (2004-12-13 07:42) [0]

Уважаемые, Мастера!
Помогите молодому.
Есть текстовой файл
01.01.2004
31.03.2004
01.04.2004
30.06.2004
01.07.2004
30.09.2004
01.10.2004
31.12.2004

Как поменять значение 2004 на значение введённое пользователем
в Edit1.Text
Спасибо.


 
Александр Иванов ©   (2004-12-13 08:44) [1]

Если файл небольшой, то так:

StrList:=TStringList.Create();
StrList.LoadFromFile(FileName);
for i:=0 to StrList.Count-1 do
 begin
   Str:=StrList[i];
   Index := Pos("2004",Str);
   if Index = 0 then Continue;
   Delete(Str,Index,4);
   Insert(Edit1.Text,Str,Index);
   StrList[i]:=Str;
 end;
StrList.SaveToFile(FileName);
StrList.Free;



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

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.025 c
1-1102528136
Руслана
2004-12-08 20:48
2004.12.26
Перестала запускаться Delphi7


8-1096363662
BALU1111
2004-09-28 13:27
2004.12.26
Построение поверхностей второго порядка в трехмерном пространстве


1-1102685710
mefisto
2004-12-10 16:35
2004.12.26
Как захватить текущий URL из окна Internet Explorer.


1-1102580428
Dysan
2004-12-09 11:20
2004.12.26
обратиться к процедуре зная только название в текстовом формате!


14-1102366856
VEG
2004-12-07 00:00
2004.12.26
Новый IE теперь блокирует скрипты с чужого хоста