usr/share/fpcsrc/3.0.0/tests/webtbs/tw25198.pp · bee / fpc-src v3.0.0 - deb package | Gemfury

Gemfury

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

bee / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.0.0 / tests / webtbs / tw25198.pp

program concatenate_resourestrings_delphiunicode;

{$mode delphiunicode}
{$codepage cp1250}

{$ifdef unix}
uses
  cwstring;
{$endif}

resourcestring
  res2 = 'žlu�ouèký ' + 'koníèek';

type
  tstr1250 = type ansistring(1250);
var
  str1250: tstr1250;
begin
  str1250 := 'žlu�ouèký ' + 'koníèek';
  if res2<>str1250 then
    halt(1);
end.