Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

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

puplic-Procedure eines Thread in anderer Unit nutzen

  Alt 3. Jun 2010, 10:55
Hallo,

ich stehe gerade total auf dem Schlauch.

Ich habe einen Thread mit einer public-function.

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):
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.
mfg
Helmi

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