Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw22796.pp
Size: Mime:
{ %norun }

program CompileError;

{$mode delphi}{$H+}

//uses Classes;

type
  TWordTagValue = record
  strict private
    FValue: Word;
    FMissingOrInvalid: Boolean; // Try to disable this line !
  public
    class function CreateFromString(const AString: string): TWordTagValue; static;
    property Value: Word read FValue;
  end;

class function TWordTagValue.CreateFromString(const AString: string): TWordTagValue;
begin
  Result.FValue := 0;
end;

begin
end.