Hi,

I'm following a suggestion for producing my own records so that I can define a custom TStringlist as detailed in this article:
http://dn.codegear.com/article/33423

However, I am unsure of where to post this code and am wondering if someone would advise me.
=================== snip =======================
unit mvlists;

{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils;
type
  TNameValueRecord = record
  private
    FNames: array of string;
    FTypes: array of string;
    function  GetCount: integer; inline;
    function  GetItem(index: integer): string;
    procedure SetItem(index: integer; const Value: string);
  public
    function  Add(const line: string): integer;
    procedure Clear;
    function  IndexOf(const s: string): integer;
    function  ValueOf(const s: string): integer;
    property  Count: integer read GetCount;
    property  Items[index: integer]: string read GetItem write SetItem; default;
  end;
implementation
function TNameValueRecord.Add(const nm, line: string): integer;
begin
  SetLength(FNames,Count+1);
  SetLength(FTypes,Count+1);
  FNames[Count-1] := line;
  FTypes[Count-1] := line;
  result := Count - 1;
end;
procedure TNameValueRecord.Clear;
begin
  SetLength( FNames, 0 );
  SetLength( FTypes, 0 );
.......
=================== snip =======================

I get this error:
mvlists.pas(13,5) Fatal: Syntax error, ":" expected but "identifier FNAMES" found

So I am clearly placing this code in the wrong section.

This should be class, not record.

Michael.

...

... end;

Delphi 2006 introduced new Pascal syntax - the possibility that records can contain methods and properties in addition to the data fields records have always had. This makes such 'advanced records' a sort of pseudo-class construct.
FreePascal/Lazarus does not support this language extension.

----
Howard

try
type
  foo = Object
     a : integer;
     Procedure b;
  end;

Ah.

Thank you all!

I like to have feature for inherit Object from a Class

type
 Tfoo = Class
    a : integer;
    procedure b;
 end;
Tfoo2 = Object(TFoo);
var
  foo: TFoo2;
begin
  foo.b;
end;

But unfortunately an object is not totally record compatible. It can not do this:

foo = object
  a : integer
  case boolean of
    true:{...};
    fasle: {...}
  end;
  procedure b;
end;

You cant do this in a record either (if you replace "proc b" by "b: integer") . You need to define a separate type for the union.

Marc