Hi,
Believe it or not, we are just going from Delphi 5 to 7 now...
I have already found a few bugs, one of which is below... Just wondering if
anyone can confirm it and know if there is a fix or not... It is pretty
simple really.
The test application was just a new form with one button, code is below...
When you do a build, the little blue dots are all out of kilter starting
from the middle of the case statement. In the original app I tried all the
usual stuff, removed dcus, checked paths, etc... Then I made this simple
little test case which proves the point.
Also, doing a Ctrl+Shift+Space in the ShowMessage produces a 'Unable to
Invoke Code Parameters due to Errors in source code' or some such thing
(same with code completion)... But the app compiles fine.
Delphi 5 does not have this problem...
Any thoughts?
Regards
Colin
----------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TTest = (tt1, tt2, tt3, tt4, tt5, tt6, tt7);
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
test: TTest;
s: string;
begin
test := tt2;
s := 'A Test:';
case test of
tt1: s := s + 'tt1';
tt2: s := s + 'tt2';
tt3: s := s + 'tt3';
tt4: s := s + 'tt4';
tt5: s := s + 'tt5';
tt6: s := s + 'tt6';
tt7: s := s + 'tt7';
else
s := s + 'UnkownState'
end;
ShowMessage(s);
end;
end.
######################################################################
Attention:
The information in this email and in any attachments is confidential.
If you are not the intended recipient then please do not distribute,
copy or use this information. Please notify us immediately by return
email and then delete the message from your computer.
Any views or opinions presented are solely those of the author.
######################################################################
_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi
