Hallo,

ich stehe gerade total auf dem Schlauch.

Ich habe einen Thread mit einer public-function.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TDatenThread = class(TThread)
  private
    { Private-Deklarationen }
  public
    { Private-Deklarationen }
    constructor Create;
    destructor Destroy; override;

    function Datei_speichern(Datei: TFileName; Text: String): Boolean;
  protected
    { Protected-Deklarationen }
    procedure Execute; override;
  end;

im private-Bereich war eine procedure die ich nun in eine eigene Unit ausgelagert habe.
Diese procedure soll aber trotzdem noch auf diese public-function "Datei_speichern" zugreifen.

Nur wie kann ich diese function in der anderen Unit benutzen?

die neue Unit schaut so aus (gekürzt):

zusammenfalten · markieren

Delphi-Quellcode:

unit BasisUnit;

interface

uses
  Classes, SysUtils, ThreadUnit, CommonUnit;

//type

{ Aufrufe }
  function NCUpgrade_Infos_auslesen(SL_NCUpgrade: TStringList;
    out Programmliste: TStringList): TNCUpgrade_Daten;

implementation

//----------------------------------PROCEDURE---------------------------------//

//----------------------------------FUNCTION----------------------------------//

function NCUpgrade_Infos_auslesen(SL_NCUpgrade: TStringList;
  out Programmliste: TStringList): TNCUpgrade_Daten;
var
  S_Text : String;
  F_Datei : TFileName;

begin
  S_Text := 'ddd';
  F_Datei := 'irgendeineDatei';

  //Datei speichern
  Datei_speichern(F_Datei, S_Text); //<==
end;

end.

Du brauchst eine Instanz der Klasse.

Zitat von sirius:

Du brauchst eine Instanz der Klasse.

verständlich! - aber wie erhalte ich die bei einem Thread?

[Edit]
Schande auf mein Haupt!

Ich hab ja schon eine Instanz beim Erzeugen meines Thread.
Die kann/muss ich natürlich verwenden

Zitat von Helmi:

Zitat von sirius:

Du brauchst eine Instanz der Klasse.

verständlich! - aber wie erhalte ich die bei einem Thread?

Naja, wie man eben eine Instanz einer Klasse erzeugt:

Instanz := TDataThread.Create; Das Problem könnte nur sein, daß der Thread automatisch ausgeführt wird, sobald er erzeugt wurde. Das ist aber wohl nicht das, was du hier willst.

Wenn die Methode Datei_speichern keine privaten Felder des Threads verwendet, kannst du sie auch als Klassenmethode deklarieren - dann brauchst du keine Instanz:

markieren

Delphi-Quellcode:

    class function Datei_speichern(Datei: TFileName; Text: String): Boolean;


//Datei speichern
TDataThread.Datei_speichern(F_Datei, S_Text); //<==