Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#1

Daten aus ListView in einem Thread bekommen

  Alt 17. Apr 2007, 18:56
Hallo

ich bräuchte mal nen kleinen Tip:


Ich hab eine ListView mit 2 Spalten, in der einen stehen Datei-Namen mit Pfad und im anderen eine Ordner-Angabe.
Wenn ich auf einen Button klicke, wird ein Thread gestartet, in dem die Dateien in den Ordner gekopiert werden (und das für ListView-Zeile für ListView-Zeile).

Soweit so gut!

Damit der Thread weiss, was er kopieren muss werden, wird, vor dem Starten des Threads, ein Array of String mit Daten gefüttert.
Das ganze schaut so aus:

Delphi-Quellcode:
  Thread_ListView_Zeilen: array of String;
{ ... }

const
  Thread_Trennzeichen = '|';

var
  S: String;
  i: Integer;
  Thread_Anzahl_ListView_Eintraege: Integer;

begin
{ ... }

  //Übergabevariablen an den Thread beschreiben
  Thread_Anzahl_ListView_Eintraege := ListView_Dateien.Items.Count;

  SetLength(Thread_ListView_Zeilen, Thread_Anzahl_ListView_Eintraege);

  with ListView_Dateien.Items do
    for i := 0 to Pred(Thread_Anzahl_ListView_Eintraege) do
      begin
        //Spalten mit Trennung in den Array schreiben
        S := Item[i].SubItems.Strings[0] + Thread_Trennzeichen +
             Item[i].SubItems.Strings[1] + Thread_Trennzeichen;

        Thread_ListView_Zeilen[i] := S;
      end;
{ ... }
Das funktioniert auch. Der Thread decodiert den Array wieder und weiss was er wo hinkopieren muss.

Nur dieser ganze Umweg über Array beschreiben und dann wieder decodieren gefällt mir nicht - da müsste es auch einen schöneren (vielleicht auch besseren) Weg geben.

Vielleicht kann mir ja jemand sagen, wie ich es einfacher bekommen kann, dass der Thread die Daten aus der ListView erhält.
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat