Gleiche Variablen-Namen

[DeddyH]

Ich habe mir jetzt extra meine eigene Komponente installiert und auf die Schnelle ein Beispiel gebastelt. Zunächst der Frame:

Delphi-Quellcode:

unit uTestFrame;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DDFileUtils, FileSearch;

type
  TSearchFrame = class(TFrame)
    FileSearcher1: TFileSearcher;
    procedure FileSearcher1MatchFound(Sender: TObject; const Path: string;
      const FileInfo: TSearchRec);
    procedure FileSearcher1ExecuteComplete(Sender: TObject);
  private
    { Private-Deklarationen }
    //Der FileSearcher ist hier, dann sollte die Liste auch hier sein
    FPaths: TStrings;
    FOnFertig: TNotifyEvent;
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure Search;
    //Nach außen verfügbar machen (Lesezugriff genügt)
    property PathList: TStrings read FPaths;
    //Event nach Beendigung der Suche
    property OnFertig: TNotifyEvent read FOnFertig write FOnFertig;
  end;

implementation

{$R *.dfm}

uses IOUtils;

{ TSearchFrame }

constructor TSearchFrame.Create(AOwner: TComponent);
begin
  inherited;
  FPaths := TStringList.Create;
end;

destructor TSearchFrame.Destroy;
begin
  FPaths.Free;
  inherited;
end;

procedure TSearchFrame.FileSearcher1ExecuteComplete(Sender: TObject);
begin
  if Assigned(FOnFertig) then
    FOnFertig(self);
end;

procedure TSearchFrame.FileSearcher1MatchFound(Sender: TObject;
  const Path: string; const FileInfo: TSearchRec);
begin
  FPaths.Add(IncludeTrailingPathDelimiter(Path) + FileInfo.Name);
end;

procedure TSearchFrame.Search;
begin
  FPaths.Clear;
  FileSearcher1.RootDir := TPath.GetDocumentsPath;
  FileSearcher1.Execute;
end;

end.

Und jetzt das MainForm, auf dem der Frame liegt:

Delphi-Quellcode:

unit uMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uTestFrame, Vcl.StdCtrls;

type
  TfrmTestMain = class(TForm)
    SearchFrame1: TSearchFrame;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure DoFertig(Sender: TObject);
  public
    { Public-Deklarationen }
  end;

var
  frmTestMain: TfrmTestMain;

implementation

{$R *.dfm}

procedure TfrmTestMain.Button1Click(Sender: TObject);
begin
  SearchFrame1.Search;
end;

procedure TfrmTestMain.DoFertig(Sender: TObject);
begin
  Memo1.Lines.Assign(SearchFrame1.PathList);
end;

procedure TfrmTestMain.FormCreate(Sender: TObject);
begin
  SearchFrame1.OnFertig := DoFertig;
end;

end.

Es gibt nur eine Instanz der Liste, und ich weiß, wo sie ist. Von außen kann ich aber trotzdem darauf zugreifen und sie anderen Listen zuweisen. Wo ist da jetzt das Problem?