Delphi-Quellcode:
procedure TDMLSQLite.DoPathListEvent(Sender: TObject;
const FOrdner: String; const FPathlist: TStringList);
begin
Self.FPathlist.Assign(FPathlist);
end;
Private Variablen und Parameter mit demselben Namen, so etwas ist tückisch ohne Ende (wie auch schon erwähnt). Du solltest dir angewöhnen, Funktionsparamater anders zu benennen, die gängige Konvention ist "AName". Dann brauchst du auch den Self-Mist nicht.
Delphi-Quellcode:
class TDMLSQLite = ...
private
FPathlist: TStringList;
end;
procedure TDMLSQLite.DoPathListEvent(Sender: TObject; const AOrdner: String; const APathlist: TStringList);
var
Pathlist: TStringList
begin
FPathlist.Assign(APathlist);
end;