Einzelnen Beitrag anzeigen

Robert_G
(Gast)

n/a Beiträge
 
#6

Re: Ini Speichern dauert lange!!

  Alt 8. Mai 2004, 19:08
Du hast neben dem ständigen Neuerzeugen des Inifiles auch ein paar andere Sachen nicht soooo gut gelöst.
  • Du hast Section und Key vertauscht
  • Warum sollte man die Nummer des Eintrages speichern?
  • Außerdem hattest du für jedes SubItem fixen Code geschrieben, die kann man doch auch in einer Schleife durchlaufen.


Auch wenn sich eigentlich XML zum Speichern eines ListViews anbieten würde, es könnte soo gehen:
Delphi-Quellcode:
var
  i, j : Integer;
begin
  with TIniFile.Create('c:\Dateiname.ini') do
  try
    with ListView1 do
      for i := 0 to pred(Items.Count) do
        with Items[i] do
        begin
          WriteString('Rec' + IntToStr(succ(i))
                    , 'Col1'
                    , Caption);

          for j := 0 to pred(SubItems.Count) do
            WriteString('Rec' + IntToStr(succ(i))
                      , 'Col' + IntToStr(j + 2)
                      , SubItems[j]);
          // Das ist IMHO Schwachfug ;)
          //writeinteger('index', 'count', SubItems.Count);
        end;

  finally
    Free;
  end;
end;
  Mit Zitat antworten Zitat