BorlandTalk.com

Bill Allaire · Guest

I expected to get a hint/warning from the compiler but I didn't. Can
someone explain why I didn't receive one for the commented line of code?
The code is a careless mistake on my part but something the compiler
should catch, right?

unit test;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function printLane(const lane: integer): string; overload;
function printLane(const lane: string): string; overload;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.printLane(const lane: integer): string;
begin
result := '3';
end;

function TForm1.printLane(const lane: string): string;
begin
// Here I thought I would be warned by the compiler
// about a lack of assigned to the functions return value
// (result or function name is not assigned any value)
printLane(StrToInt(lane));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
printLane(3);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(printLane('9'));
end;

end.

Riki Wiki · Guest

On Thu, 16 Jun 2005 10:26:32 -0400, Bill Allaire wrote:

helloworld@500mghosting.c · Guest

Riki Wiki · Guest

On 22 Jun 2005 00:43:27 -0700, [email]helloworld (AT) 500mghosting (DOT) com[/email] wrote: