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

Reply via email to