28 lines
416 B
ObjectPascal
28 lines
416 B
ObjectPascal
unit Persist.GameList;
|
|
|
|
interface
|
|
uses
|
|
Game.List;
|
|
|
|
|
|
type
|
|
TGameListPersist = class(TObject)
|
|
public
|
|
class procedure Load(const AFileName: string; AList: TGameList);
|
|
end;
|
|
|
|
|
|
implementation
|
|
uses
|
|
System.SysUtils;
|
|
|
|
|
|
{ TGameListPersist }
|
|
class procedure TGameListPersist.Load(const AFileName: string; AList: TGameList);
|
|
begin
|
|
if not FileExists(AFileName) then
|
|
exit;
|
|
end;
|
|
|
|
end.
|