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! <<