Auf Elemente der übergeordneten Klasse zugreifen

[silver-moon-2000]

Hallo zusammen,

sorry, dass ich schon wieder nerve, und mir auch kein SO aussagekräftiger Name eingefallen ist. Am liebsten hätte ich schreiben wollen: "Bin verwirrt, helft mir" :mrgreen:

Sorry, der Thread wird etwas länger... :roll:

Ich will ein kleines Progtramm schreiben, das mir die CRC32 Checksummen von Dateien berechnet. Das Berechnen ist nicht das Problem.

Ich will das Berechnen in einen Thread auslagern, folgender Code:

Delphi-Quellcode:

type TCRCThread = class(TThread)
  protected
    procedure Execute; override;
  public
    constructor Create;
end;


type TCRCList = class(TObject)
  private
    fOL      : TCRCObjectList;
    fThread  : TCRCThread;
    fInList  : TListBox;
    fOutList : TMemo;
  public
    constructor Create;
    destructor Destroy; override;
    procedure getFiles;
    procedure StartCRC;
    procedure StopCRC;
    procedure DisplayCRC;
    property InList : TListBox read fInList write fInList;
    property OutList : TMemo read fOutList write fOutList;
end;

TCRCList.GetFiles schreibt die DateiNamen und Sonstige Informationen in die gecastete ObjectList fOL.
TCRCList.StartCRC erzeugt und startet den Thread namens fThread.
TCRCList.DisplayCRC soll unter anderem die berechneten Checksummen in das Memo fOutList schreiben.
TCRCThread.Execute soll der Reihe nach die CRC32 aller in der ObjectList vorhandenen Dateien berechnen und diese im Memo fOutList ausgeben.

:arrow: Problem: Wie kann ich im Thread auf die Elemente meiner ObjectListe der Klasse TCRCList zugreifen?

:arrow: Zweites Problem: Wie kann ich im thread, wenn er einen for-Durchgang beendet hat, die Methode DisplayCRC der Klasse TCRClist aufrufen?

Delphi-Quellcode:

procedure TCRCThread.Execute;
var i : integer;
begin
  for i := 0 to fOL.Count-1 do  <-- ? 
  begin
    //ComputeChecksum
    //Display CheckSum in Memo  <-- ?
  end;
end;

Das blöde ist, ich brauche Methode und ObjectList auch, bevor ich den Thread createt und nachdem ich ihn zerstört habe. Sonst hätte ich ja einfach dem Thread die Methode und die ObjectList geben können.

Meine einzige Idee ist es, dem Thread eine eigene ObjectList und eigene Display-Methode zu spendieren und dann die ObjectList einfach zu kopieren...

Delphi-Quellcode:

type TCRCThread = class(TThread)
  private
    fOL : TCRCObjectList;
    procedure DisplayCRC;
  protected
    procedure Execute; override;
  public
    constructor Create;
end;

procedure TCRCList.StartCRC;
begin
  fThread := TCRCThread.create;
  fThread.fOL := fOL;
  [...]
end;

Ich hoffe, ich konnte mein Problem halbwegs verständlich machen
:arrow: Gibt es eine Möglichkeit, vom Thread fThread aus auf die ObjectList fOL der Klasse TCRCList zuzugreifen?

[Apollonius]

Der Thread braucht ein Feld, in dem die CRCList gespeichert wird.

[silver-moon-2000]

Zitat:

Zitat von Apollonius

Der Thread braucht ein Feld, in dem die CRCList gespeichert wird.

Erstmal danke für die Antwort.
Wenn ich Dich recht verstehe, meinst Du etwa folgendes?

Delphi-Quellcode:

type TCRCThread = class(TObject)
  private
    fList : TCRCList; //  <--
  protected
[...]
end;

procedure TCRCThread.Create;
begin
  fList := TCRCList.Create;
end;

procedure TCRCList.StartCRC;
begin
  fThread := TCRCThread.Create;
  fThread.fList.fOL := fOL;
  fThread.fList.fInList := fInList;
  fThread.fList.fOutList := fOutList;
  fThread.Resume;
end;

So hatte ich es auch mal, aber es erschien mir zu "umständlich", um richtig zu sein :gruebel: :oops:

Allerdings tut sich ein kleine Problem auf:
[Pascal Error] uType.pas(112): E2003 Undeclared identifier: 'TCRCList'

Delphi-Quellcode:

type TCRCThread = class(TObject)
  private
    fList : TCRCList; //  <--
  protected
[...]
end;

type TCRCList = class(TObject)
  private
    fThread : TCRCThread; //  <--
  protected
[...]
end;

Wenn Du Deine Augenbrauen zusammenziehst, bitte ich um besondere Beachtung meiner Signatur, hehe

[DeddyH]

Delphi-Quellcode:

type TCRCList = class; // <--

type TCRCThread = class(TObject)
  private
    fList : TCRCList; //  <--
  protected
[...]
end;

type TCRCList = class(TObject)
  private
    fThread : TCRCThread; //  <--
  protected
[...]
end;

[Apollonius]

Du denkst deutlich zu kompliziert. Erzeuge fList nicht im Konstruktor von TCRCThread, sondern setze in TCRCList.StartCRC einfach fThread.fList auf Self. Das geht allerdings nur, wenn bei der Zerstörung der CRCList auch der Thread beendet wird, was nach deiner Beschreibung aber vermutlich der Fall ist.
Um das Problem mit dem nicht deklarierten Bezeichner zu lösen, musst du TCRCList "forward-declaren" (Was ist das korrekte Verb dazu?). Dazu fügst du einfach vor die Deklaration von TCRCThread noch TCRCList = class; ein (ohne Vorfahrenliste!).

[Namenloser]

Zitat:

Zitat von Apollonius

"forward-declaren" (Was ist das korrekte Verb dazu?).

Vorwärts deklarieren? :gruebel:

[silver-moon-2000]

Zitat:

Zitat von Apollonius

Du denkst deutlich zu kompliziert.

DAS hat bisher noch keiner zu mir gesagt, eher das genaue Gegenteil :drunken:

Zitat:

Zitat von Apollonius

Erzeuge fList nicht im Konstruktor von TCRCThread, sondern setze in TCRCList.StartCRC einfach fThread.fList auf Self. Das geht allerdings nur, wenn bei der Zerstörung der CRCList auch der Thread beendet wird, was nach deiner Beschreibung aber vermutlich der Fall ist.

Aber Du hast mit dem kompliziert Denken eindeutig recht.
Meine Standard-Anwort : Warum hab' ich nicht dran gedacht....

Zitat:

Zitat von Apollonius

Um das Problem mit dem nicht deklarierten Bezeichner zu lösen, musst du TCRCList "forward-declaren" (Was ist das korrekte Verb dazu?). Dazu fügst du einfach vor die Deklaration von TCRCThread noch TCRCList = class; ein (ohne Vorfahrenliste!).

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

type TCRCList = class; // <--

type TCRCThread = class(TObject)
  private
    fList : TCRCList; //  &lt;--
[...]
end;

type TCRCList = class(TObject)
  private
    fThread : TCRCThread; //  &lt;--
[...]
end;

Kann mir jemand bitte erklären, warum der Quelltext von DeddyH bei mir den Fehler
[Pascal Error] uType.pas(108): E2086 Type 'TCRCList' is not yet completely defined
bringt, aber folgendes (nur ein type am Anfang) funktioniert

Delphi-Quellcode:

type 
TCRCList = class; // <--

TCRCThread = class(TObject)
  private
    fList : TCRCList; //  &lt;--
[...]
end;

TCRCList = class(TObject)
  private
    fThread : TCRCThread; //  &lt;--
[...]
end;

Achja, beinahe hätt' ich's vergessen: Danke an alle und :dp: wieder mal

[Apollonius]

Zitat:

Zitat von Die Delphi-Hilfe

If the declaration of a class type ends with the word class and a semicolon - that is, if it has the form

type className = class;

with no ancestor or class members listed after the word class, then it is a forward declaration. A forward declaration must be resolved by a defining declaration of the same class within the same type declaration section. In other words, between a forward declaration and its defining declaration, nothing can occur except other type declarations.

[silver-moon-2000]

Zitat:

Zitat von Apollonius

Zitat:

Zitat von Die Delphi-Hilfe

If the declaration of a class type ends with the word class and a semicolon - that is, if it has the form

type className = class;

with no ancestor or class members listed after the word class, then it is a forward declaration. A forward declaration must be resolved by a defining declaration of the same class within the same type declaration section. In other words, between a forward declaration and its defining declaration, nothing can occur except other type declarations.

Danke für die Geduld.
Hmpf, in meiner Delphi-Hilfe habe ich dieses Thema nicht gefunden, aber ich stehe sowieso mit meiner Hilfe auf Kriegsfuß.