Einzelnen Beitrag anzeigen

lucius

Registriert seit: 6. Okt 2005
Ort: Niederlande
215 Beiträge
 
Delphi 7 Enterprise
 
#12

Re: AccessViolation mit Checkbox aber warum?

  Alt 9. Dez 2005, 13:28
So habe es jetzt geschafft mit den ListviewIndex
Delphi-Quellcode:
if ListView.Items[z].SubItems[1] = 'TV - Kidsthen
   begin
     slCheckFields.Assign(Listview.Items[z].SubItems);
     slCheckFields.Insert(0, inttostr(z) + Listview.Items[z].Caption); //<--ListIndex Zuweisung
     slCheckLines.Add(slCheckFields.CommaText);
     ListView.Items[z].Delete;
   end;
Delphi-Quellcode:
for i := Pred(slCheckLines.Count) downto 0 do
    begin
      CheckFieldList.CommaText := slCheckLines[i];
         with ListView.Items.Insert(strtoint(CheckFieldList[0])) do //ListIndex auslesen
            begin
              Caption := CheckFieldList[0];
              CheckFieldList.Delete(0);
              SubItems.Assign(CheckFieldList);
            end;
    end;
klapt alles ganz gut, es gibt aber noch nen kleines Problem, beim Ersten Durchgang wird alles Korrekt angezeigt.
Zitat:
570,2005-11-11,"TV-Kids",...... //570//
Aber beim Zweiten Durchgang klebt er den ListIndex neu an, obwohl ich doch die Stringlisten loesche.
Zitat:
570570,2005-11-11,"TV-Kids",...... //570570//
Was koennte das sein?

MFG Lucius.
  Mit Zitat antworten Zitat