Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.02.2017, 14:53
Martin Martin вне форума
Прохожий
 
Регистрация: 10.02.2017
Сообщения: 5
Версия Delphi: Embarcadero XE3
Репутация: 10
По умолчанию Глючит форматтер исходного кода в редакторе Delphi

У меня стоит Embarcadero Delphi XE Version 15.0.3953.35171 2010-го года.
После очередного нажатия Ctrl-D форматтер выдал следующее:
Код:
OpEditBtn3: TOpEditBtn;
Button10: TButton;
Label182: TLabel;
BitBtn20: TBitBtn;
Label183: TLabel;
lbSurfName: TLabel;
Tabsheet15: TTabSheet;
fsedtUgolSkanSurf: TFloatSpinEdit;
pmSurfSelect: TPopupMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;

procedure lbxSurfSelectMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    procedure btnOnPervNastrClick(Sender: TObject);
        procedure OehPoint1BitBtnClick(Sender: TObject);
            procedure OehPoint1ByBeamBitBtnClick(Sender: TObject);
                procedure ChooseParDirBtnClick(Sender: TObject);
                    procedure btnLoadPhotoKorytoClick(Sender: TObject);
                        procedure imgPicModelSpinkaMouseUp(Sender: TObject;
                            Button: TMouseButton; Shift: TShiftState;
                            X, Y: Integer);
                            procedure imgPicModelKorytoMouseUp(Sender: TObject;
                                Button: TMouseButton; Shift: TShiftState;
                                X, Y: Integer);
                                procedure N2Click(Sender: TObject);
                                    procedure FormCreate(Sender: TObject);
                                        procedure LoadFromIni;
                                        procedure N1Click(Sender: TObject);
                                        procedure FormClose(Sender: TObject;
                                        var Action: TCloseAction);
                                        procedure mniDeleteBaseClick
                                        (Sender: TObject);
                                        procedure TochkaOnClick(Sender: TObject;
Что это может быть?
Ответить с цитированием
  #2  
Старый 21.02.2017, 15:00
Martin Martin вне форума
Прохожий
 
Регистрация: 10.02.2017
Сообщения: 5
Версия Delphi: Embarcadero XE3
Репутация: 10
По умолчанию

Вот значения Tools->Options->Formatter->Delphi:
Изображения
Тип файла: jpg Format1.JPG (87.8 Кбайт, 5 просмотров)
Тип файла: jpg Format2.JPG (91.4 Кбайт, 0 просмотров)
Тип файла: jpg Format333.JPG (93.1 Кбайт, 0 просмотров)
Тип файла: jpg Format4.JPG (54.7 Кбайт, 0 просмотров)
Ответить с цитированием
  #3  
Старый 21.02.2017, 17:30
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от Martin
...Что это может быть?
Похоже, что вместо пробела вставляется табуляция и с каждой последующей строчкой увеличивается её шаг
Ответить с цитированием
  #4  
Старый 21.02.2017, 18:50
Martin Martin вне форума
Прохожий
 
Регистрация: 10.02.2017
Сообщения: 5
Версия Delphi: Embarcadero XE3
Репутация: 10
По умолчанию

Все, разобрались. Форматтеру не нравились вложенные описания записей:
Код:
    TSurfParameters = record
        SurfName: string; // Имя поверхности
        Point1: record // Координаты первой точки сканирования
        X: Double;
        Y: Double;
        Z: Double;
    end;
    end;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:40.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter