Inis: Letzten Eintrag löschen und den Rest um eins aufrücken

[sECuRE]

Hi,

achso... Gut, dann schau mal hier:

Delphi-Quellcode:

// fn = filename
// s = section
// n = name
procedure ReArrangeIni(fn,s,n,ins:string);
var ini:TIniFile; c:integer; t:string; nt:TStrings;
begin
ini:=TIniFile.Create(fn);
try
 nt:=TStringList.Create;
 try
  for c:=0 to (ini.ReadInteger(s,ins,0)-1) do begin
   t:=ini.ReadString(s,n+IntToStr(c),'');
   if (length(t) > 0) then nt.Add(t);
   ini.DeleteKey(s,n+IntToStr(c));
  end;
  for c:=0 to (nt.Count-1) do
   ini.WriteString(s,n+IntToStr(c),nt.Strings[c]);
  ini.WriteString(s,ins,IntToStr(nt.count));
 finally
  nt.free;
 end;
finally
 ini.free;
end;
end;

Das funktioniert allerdings nur, wenn die ini in folgendem Format abgespeichert ist:

Code:

[section]
ins=1
0=blah

Vielleicht kannst du es ja "portieren".

cu