Текущий архив: 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.042 c
