zugriffsverletzung

[hedie]

Hallo

Ich erhalte bei diesem Code eine zugriffsverletzung jedoch nur dann wen er das zweite mal ausgeführt wurde

Meinermeinung nach stimmt alles

Delphi-Quellcode:

procedure TForm2.Image10Click(Sender: TObject);
var
i:integer;
sln,sli:tstringlist;
begin
i := listboxm1.ItemIndex;
sln := tstringlist.Create;
sli := tstringlist.Create;
////////Listboxen säubern :D/////
listboxm2.Items.Delete(i);
listboxm1.Items.Delete(i);
////////////////////////////////
i := 0;
///tempc beinhaltet die vorherige anzahl an items also eins mehr als jetzt vorhanden sind :D
repeat
sln.Add(listboxm1.Items.Item[i].Caption);
sli.Add(listboxm1.Items.Item[i].SubItems.Strings[0]);
i := i + 1;
until i = (tempc - 1);
sln.Free;
sli.Free;
end;

listboxm1 ist ein tlistview
listboxm2 it eine Listbox


grüsse
Claudio

Wegen fragen bezüglich dem RadStudio 2007, ist nur ne Testversion für 14 Tage

[mkinzler]

Ich wprde nicht mit der globalen Variable tempc arbeiten sondern mit listboxm1.Items.Count

[hedie]

stimtm super das war es

Is ja wenn man so denkt logisch da sich ja tempc nie verändert

[marabu]

Hallo Claudio,

warum überhaupt so viele Code-Zeilen? Der einzige bleibende Effekt ist doch das Löschen des ausgewählten Items:

Delphi-Quellcode:

procedure TForm2.Image10Click(Sender: TObject);
var
  i: integer;
begin
  i := listboxm1.ItemIndex;
  listboxm2.Items.Delete(i);
  listboxm1.Items.Delete(i);
end;

Grüße vom marabu

[hedie]

Danke für den tipp Marabu

jedoch wird, was ihr hier nicht sehen könnt, danach sie stringlist an eine DLL übergeben welche diese dan weiterverarbeitet und schlussendlich in inis speichert

[marabu]

Wann denn später, wenn du doch die beiden Listen sofort wieder freigibst?

[hedie]

nee hab das vo dem .free noch eingefugt aber erst nach dem posten

Hast du noch ne idee weshalb ich nichts erhalte?

sli.Add(listboxm1.Items.Item[i].SubItems.Strings[0]); bzw es wird nichts geaddet

[marabu]

Keine Ahnung - vielleicht steht da gar nix?

sli.Add(listboxm1.Items[i].SubItems[0]); Soll da wirklich nur die zweite Spalte übernommen werden?

[hedie]

jep die zweite spalte soll übernommen werden

Doch in der zweiten spalte steht was

[marabu]

Vergewissere dich mal:

 ShowMessage('"' + listboxm1.Items[i].SubItems[0] + '"');