paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 21:18:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: examples for advanced records

Browse Source 
git-svn-id: trunk@29361 -
This commit is contained in:
mattias 2011-02-03 21:54:04 +00:00
parent 38725ab0ee
commit 1687922e06
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/examples/scanexamples/recordsexample.pas
View File

@ -14,7 +14,7 @@ type
F1: Integer;
F2: Byte;
public
{ type
type
TBar = Integer;
const
C: TBar = 1;
@ -29,7 +29,7 @@ type
var
F: Int;
const
DefaultF: Int = 1;}
DefaultF: Int = 1;
public
function GetF: integer;
procedure SetF(const Value: integer);
@ -70,17 +70,17 @@ type
function TRec1.GetF: integer;
begin
Result := F1;
Result := F;
end;
procedure TRec1.SetF(const Value: integer);
begin
F1 := Value;
F := Value;
end;
class operator TRec1.Inc(Rec: TRec1): TRec1;
begin
Result.F1 := Rec.F1 + 1;
Result.F := Rec.F + 1;
end;
begin