Überprüfen, ob ein TListItem existiert???

[romber]

Hallo!

Beim erstellen eines Threads wird ein TListItem erstellt und mit dem Thread verknüpft, damit der Thread die Änderungen in diesem Item vornehmen kann. Etwa so:

Code:

...
var
Item: TListItem;
Thread: TThread;
begin
Item := ListView1.Items.Add;
Thread := MyThread.Create(true, Item) //dabei ist beim Thread der Create-constructor natürlich überschrieben 
Item.Caption := 'Irgendwas';
Item.Data := Pointer(Thread);
Thread.Resume;
...

Der Thread kann dan problemlos auf den Item zugreifen und Daten ändern.

Wie kann ich im Thread überprüfen, ob Item in der ListView noch vorhanden ist, ich meine noch nicht gelöscht wurde? :oops:

Danke!

MfG,
Ralfi

[shmia]

Zitat:

Zitat von romber

Der Thread kann dan problemlos auf den Item zugreifen und Daten ändern.

Wie kann ich im Thread überprüfen, ob Item in der ListView noch vorhanden ist, ich meine noch nicht gelöscht wurde? :oops:

Andersrum wird ein Schuh draus.
Beim Löschen eines Items musst du 1.) den Thread terminieren und 2.) den Thread freigeben (falls du FreeOnTerminate nicht gesetzt hast)

Delphi-Quellcode:

procedure DelItem(Item: TListItem);
var 
 Thread: TThread; 
begin 
  Thread:=TThread(Item.Data);
  if Assigned(Thread) then
  begin
     Thread.Terminate;
     Thread.Free;  // nur wenn FreeOnTerminate=False
  end;
end;

Im Thread musst du obacht geben und nur auf das Item zugreifen, wenn der Thread noch nicht Terminiert ist:

Delphi-Quellcode:

if Terminated then
   Exit;  // Execute verlassen, wenn Thread terminiert ist
// Thread ist nicht terminiert, also darf ich auf das Item zugreifen
FItem.Caption := 'working ' +IntToStr(x);