Herausfinden mit welchem File ein Filestream erstellt wurde

[alleinherrscher]

Hi@all!

Sorry, dass ich euch in letzter Zeit so viel nerve! Es soll dieses mal aber auch das letzte Mal sein:

Meine Frage: Gibt es nach dem erstellen eines FileStreams mit TFileStream.create(FileName,Filemode);

noch eine Möglichekeit, herauszufinden, welchen Filename man angegeben hat? Und ich möchte jetzt nicht hören: "Ja, indem du ihn dir in einer Variable speicherst" oder "Als guter Programmierer weiß dein Programm immer, welches File da gerade geöffnet wurde"...

Vielen Dank,

Euer Alleinherrscher (mit schlechtem gewissen)

[Luckie]

Schon in der Hilfe geguckt? Da die Klasse keine entsprechende Eigenschaft besitzt (Delphi 6), wohl her nicht. Und warum willst du sie dir nicht merken? Ansonsten entsprechend nachrüsten:

Delphi-Quellcode:

type
  TMyFileStream = class(TFileStream)
  private
    FFilename: String;
    function GetFilename: String;
    procedure SetFilename(Filename: String);
  public
    constructor Create(const FileName: string; Mode: Word); overload;
    property Filename: string read GetFilename write SetFilename;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TMyFileStream.GetFilename: String;
begin
  Result := FFilename;
end;

procedure TMyFileStream.SetFilename(Filename: String);
begin
  FFilename := Filename;
end;

constructor TMyFileStream.Create(const FileName: string; Mode: Word);
begin
  inherited Create(Filename, Mode);
  FFilename := Filename;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyFileStream: TMyFileStream;
begin
  MyFileStream := TMyFileStream.Create('d:\test.txt', fmCreate);
  try
    ShowMessage(MyFileStream.Filename);
  finally
    FreeAndNil(MyFileStream);
  end;
end;

[Hawkeye219]

Hallo,

zumindest bis Delphi 7 (einschließlich) sieht es schlecht aus, bei Delphi 2006 gibt es die Eigenschaft TFileStream.FileName.

Gruß Hawkeye

[alleinherrscher]

Danke Jungs!!!