delphi basics const of record
program RecordConstDemo;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
TPerson = record
const
MaxNameLength = 50;
MaxAge = 120;
var
Name: string;
Age: Integer;
end;
var
Person: TPerson;
begin
Person.Name := 'John Doe';
Person.Age := 30;
Writeln('Person Name: ' + Person.Name);
Writeln('Person Age: ' + IntToStr(Person.Age));
Readln;
end.