You are so right... I thought I made such a nice test case too... Doh...
Must have copied a line from the original application case statement and repeatedly copied and renamed them. Thanks for that. Regards Colin -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Stacey Verner Sent: Tuesday, 29 June 2004 12:13 p.m. To: NZ Borland Developers Group - Delphi List Subject: RE: [DUG] Bug in IDE??? This is usually due to odd invisible characters. Paste it into wordpad, and you will see the odd characters as square boxes. Stacey > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of C Fraser > Sent: Tuesday, 29 June 2004 12:01 > To: 'Delphi List' > Subject: [DUG] Bug in IDE??? > > > 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 > _______________________________________________ Delphi mailing list [EMAIL PROTECTED] http://ns3.123.co.nz/mailman/listinfo/delphi ###################################################################### 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
