Fortschritt beim Speichern in Gauge darstellen

[DeathsShadow]

sry .... mein fehler

Delphi-Quellcode:

function SaveListBoxToIni(const IniPath, Section: String;
  List: TStrings): Boolean;
var
  k: Integer;
begin
  with TIniFile.Create(IniPath) do try
    EraseSection(Section);

    for k := 0 to List.Count - 1 do
      WriteString(Section, IntToStr(k), Format('"%s"',[List[k]]));

    Result := True;
  finally Free end;
end;

MFG Death's Shadow