JCF failure
Original Reporter info from Mantis: jujibo @jujibo
-
Reporter name: Julio Jiménez Borreguero
Original Reporter info from Mantis: jujibo @jujibo
- Reporter name: Julio Jiménez Borreguero
Description:
Code can't be reformatted probably due UTF8 chars in a string (more than two utf8 chars).
Steps to reproduce:
Create a new Application Project
Add a button to the form
Add code to the click button event:
procedure TForm1.Button1Click(Sender: TObject);
var
resp: integer;
begin
resp := Application.MessageBox(pchar('¿áñ?'), 'Confirme', MB_ABORTRETRYIGNORE +
MB_ICONQUESTION);
end;
Press Ctrl+D to reformat the code
You'll get:
JCF: unit1.pas Exception Exception Spaces to end is -1 on ; at on line 36 position 98 line is
resp := Application.MessageBox('¿áñ?', 'Confirme', MB_ABORTRETRYIGNORE + MB_ICONQUESTION);
JCF: IDE Aborted due to error
If you remove one of UTF8 chars, all is fine (¿, á or ñ)