mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-31 22:56:13 +02:00
83 lines
2.1 KiB
ObjectPascal
83 lines
2.1 KiB
ObjectPascal
unit bug40145;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
|
|
bad=record
|
|
field1:string;
|
|
field2:integer;
|
|
case integer of
|
|
1:(hh:procedure());
|
|
2:(ff1:function(a:integer;b:boolean):boolean of object); //<<--- Codetools error: unit2.pas(17,9): Error bracket ) not found
|
|
// sometimes unit2.pas(17,22) Error: identifier expected, but ( found.
|
|
3:(pp2:procedure(aa:integer;bb:boolean));
|
|
4:(pp3:procedure);
|
|
5:(ff2:function(a:integer;b:boolean):boolean; bbb:integer);
|
|
6:(ff3:function(a:integer;b:boolean):boolean of object);
|
|
end;
|
|
|
|
tt=record
|
|
i: packed record
|
|
j: integer;
|
|
k: record end;
|
|
case y: integer of
|
|
0: (a: integer deprecated);
|
|
1,2,3: (b: array[char] of char; c: char);
|
|
3: ( d: record
|
|
case byte of
|
|
10: (i: integer; );
|
|
11: (y: byte);
|
|
end; );
|
|
4: (e: integer;
|
|
case enum:(one, two, three) of
|
|
one:(F: Integer);
|
|
two:(Dd: Byte);
|
|
three:(Z:PChar)
|
|
);
|
|
end;
|
|
end;
|
|
|
|
implementation
|
|
|
|
|
|
var
|
|
MyRecord: record
|
|
i: packed record
|
|
j: integer;
|
|
k: record end;
|
|
case integer of
|
|
0: (a: integer);
|
|
1,2,3: (b: array[char] of char; c: char);
|
|
3: ( d: record
|
|
case byte of
|
|
10: (i: integer; );
|
|
11: (y: byte);
|
|
end;)
|
|
end;
|
|
end;
|
|
MyPointer: ^integer;
|
|
|
|
function TestFunction(Index : Integer) : Integer;
|
|
var
|
|
wr:bad;
|
|
wt:tt;
|
|
begin
|
|
Result := 2*Index;
|
|
wr.pp2(2,true);
|
|
wr.pp3;
|
|
wr.bbb:=1;
|
|
wr.ff1(1,true);
|
|
wr.ff2(2,false);
|
|
wr.{completion:field1,field2,hh,ff1,pp2,pp3,ff2,bbb,ff3,!a,!b,!bb,!bad,!tt,!i,!j} //<< cursor after . and press Ctrl+Space.
|
|
end;
|
|
|
|
end.
|
|
|
|
|