tests/webtbf/tw15288.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

{ %fail }

program setcrash;

{$mode objfpc}{$H+}

uses
  Classes, SysUtils;

var
  AString: String='blabla';

procedure GetKey(var Key: Char);
begin
  if Key in ['c', AString] then
    writeln('OK');
end;

var
  AKey: Char;
begin
  AKey := 'c';
  GetKey(AKey);
end.