1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-11 11:55:02 -05:00
Simba/Units/MMLAddon/scriptproperties.pas

54 lines
975 B
ObjectPascal
Raw Normal View History

2010-03-19 19:12:43 -04:00
unit scriptproperties;
{$mode objfpc}
interface
uses
Classes, SysUtils;
type
TScriptProperties = class(TObject)
public
constructor Create;
destructor Destroy; override;
function SetProp(Name: String; Value: String): Boolean;
public
WriteTimeStamp: Boolean;
end;
implementation
constructor TScriptProperties.Create;
begin
inherited;
WriteTimeStamp := False;
{ set default values }
end;
destructor TScriptProperties.Destroy;
begin
inherited Destroy;
end;
function TScriptProperties.SetProp(Name: String; Value: String): Boolean;
begin
{
Fucking hell. We can't use a String in case statement, and we cannot define
hash maps as constants, and we also cannot use variables in case statements.
}
Name := LowerCase(Name);
if Name = 'writetimestamp' then
begin
WriteTimeStamp := LowerCase(Value) = 'true';
Exit(True);
end;
{more if bla }
Result := False;
end;
end.