Welcome to Singapore blogs
Blog - Monthly Archive List
Archives

Delphi 8 Language Puzzles #1

Chee Wee's discoveries and tech blog

Changing the world one line of code at a time...
Generic Content

About the author

Options

Delphi 8 Language Puzzles #1

Mon, 31 May 2004 @ 7:00 AM
  • Comments 1

Consider the following program for Delphi 8. If the dot is removed from the $DEFINE compiler directive, the code compiles, otherwise, it fails.

Why?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Delphi8LanguageOddities;
 
{$APPTYPE CONSOLE}
{.$DEFINE VAROBJ}
uses SysUtils;
 
{$IF Defined(VAROBJ)}
procedure FillChar(var Obj: TObject; Size: Integer; Ch: WideChar);
begin
end;
{$ELSE}
procedure FillChar(Obj: TObject; Size: Integer; Ch: WideChar);
begin
end;
{$IFEND}
 
var
  A: DateTime;
begin
  A := Now;
  FillChar(A, SizeOf(A), #0);
end.
Leave a Comment
  • 19 Jun 2004 6:05 AM
    It's because variable "A" is of type DateTime and and the procedure FillChar is epecting a variable of type TObject. The other case compiles but I don't think that it will work because it will only be able to alter a local copy of Obj, it will not pass back the sender's Obj filled with zeros. Better would be to declare the procedure as FillChar(Obj: TObject; Size: Integer; Ch: WideChar) as Borland does in D2-D7.
Page 1 of 1 (1 items)
Sort by: Most Recent | Most Views | Most Comments
Excerpt View | Full Post View
Page 1 of 67 (667 items) 12345ยป
Tags