Hi,

the following example program demonstrates the situation. Have a look at the comment at the beginning of the code:

--- SNIP --- HERE FOLLOWS THE CODE ------------ SNIP -------

{
This is a small example program.
The Function "getComment" is declared in the following way: in the class : function getComment : AnsiString; in the implementation : function Parser.getComment : char;

Nevertheless the program seems to compile and work correctly.

Compiler was : Free Pascal Compiler version 1.0.4 [2000/12/18] for i386
Operating System: Linux
Compileroptions : -Sd

Note: The Borland Delphi compiler complains about this situation. }

program test;
type
   Parser=class(TObject)
   public
      function getComment : AnsiString;
      //function getComment : char;
      function setComment(_text:AnsiString);
   private
      Comment: AnsiString;
   end;
   function Parser.setComment(_text:AnsiString);
   begin
      Comment := _text;
   end;
   function Parser.getComment : char;
   begin
      getComment := Comment;
   end;

{----- main program---------------------------------}

Var p:Parser;
var SourceBuffer : AnsiString;
begin
   sourceBuffer := 'Just some text.';
   WriteLn('The source buffer is:',sourceBuffer);
   p:=Parser.create;
   p.setComment(sourceBuffer);
   WriteLn(p.getComment);
   p.free;
end.

Thanks for reporting, I'll add it to the test suite.

Peter