Как изменить текстовой файл? [D6, WinXP]
Владимир С. © (2004-12-13 07:42:00)
Уважаемые, Мастера!
Помогите молодому.
Есть текстовой файл
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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
