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