Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Daten aus ListView in einem Thread bekommen (https://www.delphipraxis.net/90454-daten-aus-listview-einem-thread-bekommen.html)

Helmi 17. Apr 2007 18:56


Daten aus ListView in einem Thread bekommen
 
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:28 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz