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

Вниз

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

← →
сабжект   (2005-06-15 01:24) [0]

сабж.

---

← →
Gero ©   (2005-06-15 01:32) [1]

Стандартными функциями — удалить, создать новую.
Иначе ручками.

---

← →
сабжект   (2005-06-15 03:38) [2]

> Gero ©   (15.06.05 01:32) [1]
> Стандартными функциями — удалить, создать новую.

Новую и пустую. А мне нужно не удалять, а переименовать.

---

← →
Просто Джо ©   (2005-06-15 04:48) [3]

Сооруди нечто такое, да и не мучайся:

procedure RenameIniSection (const AFileName,OldName,NewName: string);
var
 Lst: TStringList;
 I: Integer;
 S1,S2: string;
begin
 S2 := "[" + UpperCase(OldName) + "]";
 Lst := TStringList.Create;
 try
   Lst.LoadFromFile(AFileName);
   for I := 0 to Lst.Count-1 do
   begin
     S1 := UpperCase(Trim(Lst[I]));
     if S1 = S2 then
     begin
       Lst[I] := "["+NewName+"]";
       Break
     end;
   end;
   Lst.SaveToFile(AFileName);
 finally
   Lst.Free;
 end;
end;


---

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

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

Наверх

Память: 0.45 MB
Время: 0.054 c