Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Kak сделать алгоритм блок-схему текстового редактора? https://www.cyberforum.ru/ delphi-beginners/ thread2476563.html
Помогите!Как сделать алгоритм блок-схему текстового редактора? Код! unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,...
Системе не удалось найти указанный путь Delphi
Пишет что системе не удалось найти указанный путь, путь указывает верно а пишет ошибку "С\Users\Виталий\Desktop\delphi7\Cтраницы\(3).bmp" procedure TForm1.FormCreate(Sender: TObject); begin ...
Delphi автоматические переменные
в чем преимущества и недостатки использования New и Dispose,GetMem и FreeMem Спасибо заранее
Delphi Цены на два виды товаров выросли на р процентов. Вывести старые и новые цены Помогите https://www.cyberforum.ru/ delphi-beginners/ thread2476244.html
Delphi Сообщение об ошибке при открытии НЕ текстовых файлов. https://www.cyberforum.ru/ delphi-beginners/ thread2476204.html
Доброго времени суток. Ребят, нужна ваша помощь. Надо как-то сделать так, чтобы при открытии НЕ текстовых файлов вылетало сообщение об ошибке. Помогите пожалуйста( unit Unit6; interface ...
Delphi работа с таймером
здравствуйте работаю с таймеров впервые и есть вопросы застрял когда переменная stol равна 1 идет отчет обратный в label1 а когда stol равен 2 то он почему то выполняет cобытие ontime первого...
Delphi Действие при нажатие на canvas
Здравствуйте. Как сделать, чтобы при клике на область внутри фигуры, происходило действие? Фигура на основе canvas
Delphi Работа с текстовыми блоками Доброе время суток! Помогите решить проблему. Пишу редактор скриптов (сценариев) к программе. есть хелп файл (*.chm) с описанием команд, в основном окне программы вывожу в hint подсказку пока... https://www.cyberforum.ru/ delphi-beginners/ thread2476134.html
Delphi Как найти страну с наибольшей добычей нефти? https://www.cyberforum.ru/ delphi-beginners/ thread2476130.html
Код unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;
Delphi Блок-схемы для граф-редактора Добрый день, помогите пожалуйста создать блок-схемы по граф.редактору, скоро сдавать курсовой, хотя бы пару тройку)Заранее большое спасибо unit Unit1; interface uses Winapi.Windows,... https://www.cyberforum.ru/ delphi-beginners/ thread2476125.html
0 / 0 / 0
Регистрация: 19.06.2019
Сообщений: 2
0
Delphi 6-7

Ошибка: Unable to invoke Code Completion due to errors in source code - Delphi - Ответ 13682074

25.06.2019, 22:40. Показов 2466. Ответов 4
Метки (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls, StdActns, ActnList, ImgList, ToolWin;
 
type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    MainMenu1: TMainMenu;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    ColorDialog1: TColorDialog;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    ActionList1: TActionList;
    FileNew: TAction;
    FileOpen: TAction;
    FileSave: TAction;
    FileSaveAs: TAction;
    FileExit: TAction;
    HelpContents: TAction;
    HelpIndex: TAction;
    HelpAbout: TAction;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    Copy1: TMenuItem;
    Paste1: TMenuItem;
    Cut1: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure FileNewExecute(Sender: TObject);
    procedure FileOpenExecute(Sender: TObject);
    procedure FileSaveExecute(Sender: TObject);
    procedure FileSaveAsExecute(Sender: TObject);
    procedure FileExitExecute(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
  private
    { Private declarations }
  public
  { Public declarations }
  FileName: string;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.N2Click(Sender: TObject);
begin
if opendialog1.Execute then
richedit1.Lines.LoadFromFile(opendialog1.FileName);
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
if savedialog1.Execute then
richedit1.Lines.SaveToFile(savedialog1.FileName);
end;
 
procedure TForm1.N4Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
if fontdialog1.Execute then
RichEdit1.SelAttributes.Assign(Fontdialog1.Font);
end;
 
procedure TForm1.N7Click(Sender: TObject);
begin
RichEdit1.Undo;
end;
 
procedure TForm1.N8Click(Sender: TObject);
begin
RichEdit1.Clear;
end;
 
procedure TForm1.N9Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;
 
procedure TForm1.N11Click(Sender: TObject);
begin
RichEdit1.SelectAll
end;
 
procedure TForm1.N10Click(Sender: TObject);
begin
RichEdit1.PasteFromClipboard;
end;
 
procedure TForm1.N13Click(Sender: TObject);
begin
RichEdit1.Alignment:=taleftjustify;
end;
 
procedure TForm1.N14Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=Tacenter;
end;
 
procedure TForm1.N15Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=tarightjustify;
end;
 
procedure TForm1.N16Click(Sender: TObject);
begin
if colordialog1.Execute then
richedit1.Color:=colordialog1.Color; 
end;
 
procedure TForm1.FileNewExecute(Sender: TObject);
begin
 RichEdit1.Clear;
  FileName:= 'Untitled.txt';
  StatusBar1.Panels[0].Text:= FileName;
end;
 
procedure TForm1.FileOpenExecute(Sender: TObject);
begin
 if OpenDialog1.Execute then
  begin
    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
    FileName:= OpenDialog1.FileName;
    StatusBar1.Panels[0].Text:= FileName;
  end;
end;
 
procedure TForm1.FileSaveExecute(Sender: TObject);
begin
 if FileName = 'Untitled.txt' then
    FileSaveAsExecute(nil)
  else
    RichEdit1.Lines.SaveToFile(FileName);
end;
 
procedure TForm1.FileSaveAsExecute(Sender: TObject);
begin
 SaveDialog1.FileName:= FileName;
  SaveDialog1.InitialDir:= ExtractFilePath(FileName);
  if SaveDialog1.Execute then
  begin
    RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
    FileName:= SaveDialog1.FileName;
    StatusBar1.Panels[0].Text:= FileName;
  end;
end;
 
procedure TForm1.FileExitExecute(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.ToolButton12Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.ToolButton13Click(Sender: TObject);
begin
  RichEdit.
end;
 
end.


Вернуться к обсуждению:
Ошибка: Unable to invoke Code Completion due to errors in source code Delphi
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.06.2019, 22:40
Готовые ответы и решения:

Как понять ошибку: "Unable to invoke Code Completion due to errors in source code"
Неподскажите что означает эта надпись????:)) Unit1.cpp(1): Unable to invoke Code Completion...

Code blocks, code completion, opengl
Подскажите пожалуйста можно ли как нибудь в code blocks к code completion подключить opengl из sfml?

Code::blocks code completion , sfml
Я использую sfml функция "code completion" работает со всеми частями sfml. Однако данная функция...

Code completion delphi 2010
скинул проект с работы думал дома поработать но заметил что перестал работать code completion,...

4
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.