reference manual contains example for extended records that has multiple bugs
Original Reporter info from Mantis: Thaddy
-
Reporter name: Thaddy de Koning
Original Reporter info from Mantis: Thaddy
- Reporter name: Thaddy de Koning
Description:
TTest4 = record
private
a : Integer;
protected // not allowed in records
function getp : integer;
public
b : string;
procedure setp (aValue : integer);
property p : integer read Getp Write SetP;
public
case x : integer of
1 : (Q : string); // should be string[255] Variant records:
2 : (S : String); // should be string[255], managed types are not allowed.
end;
Additional information:
Should be something like:
type
TTest4 = record
private
a : Integer;
function getp : integer;
public
b : string;
procedure setp (const aValue : integer);
property p : integer read Getp Write SetP;
public
case x : integer of
1 : (Q : string[255]);
2 : (S : String[255]);
end;
function TTest4.getp : integer;
begin
Result := a;
end;
procedure TTest4.setp (const aValue : integer);
begin
a :=aValue;
end;
begin
end.
Mantis conversion info:
- Mantis ID: 34015
- OS: all
- OS Build: all
- Platform: all
- Version: 3.0.4
- Fixed in version: 3.1.1
- Fixed in revision: 1495 (#e7c16184)
- Target version: 3.2.0