|
Вопрос # 4 933/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
А почему в условии (if) только логические переменные получается вставить?
 |
Вопрос задал: Адмирал (статус: Посетитель)
Вопрос отправлен: 18 января 2011, 17:40
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 54; последнее сообщение — 19 января 2011, 19:36; участников в обсуждении: 6.
Страницы: [« Предыдущая] [1] [2] [3] [Следующая »]
|
|
Адмирал (статус: Посетитель), 18 января 2011, 18:30 [#21]:
да это мне уже ненадо, мне лучше расскажите, про то как пользоваться глобалками
ПЛЗ
|
|
|
Адмирал (статус: Посетитель), 18 января 2011, 18:37 [#22]:
а?
|
|
min@y™ (статус: Доктор наук), 18 января 2011, 18:38 [#23]:
Цитата (Адмирал):
да это мне уже ненадо, мне лучше расскажите, про то как пользоваться глобалками ПЛЗ
ТЫКАЙ ССЫЛКУ.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Адмирал (статус: Посетитель), 18 января 2011, 18:42 [#24]:
ну почитал, там написанно, что нужно объявлять в блоке programm
где оН? плз не тыкать ссылками
|
|
|
min@y™ (статус: Доктор наук), 18 января 2011, 19:17 [#25]:
Цитата (Адмирал):
плз не тыкать ссылками
Всё, всё, больше не буду! Уговорил, ухожу. Надоел ты мне.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Адмирал (статус: Посетитель), 18 января 2011, 19:19 [#26]:
блин, чо как тролль  помоги плз
|
|
Тов. Женька (статус: 3-ий класс), 18 января 2011, 19:42 [#27]:
Если создать новый проект и зайти в Unit1, то можно найти следующее:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
Особо нужно обратить внимание на это:
...
var
Form1: TForm1;
...
Вот это и есть объявление глобальной переменной.
В этот же раздел var можно вписать любые другие переменные и они так же будут глобальными.
|
|
|
Адмирал (статус: Посетитель), 18 января 2011, 19:45 [#28]:
крут 
|
|
|
Тов. Женька (статус: 3-ий класс), 18 января 2011, 19:47 [#29]:
program находится в *.dpr
|
|
|
Адмирал (статус: Посетитель), 18 января 2011, 21:16 [#30]:
чото я не понял
|
|
|
min@y™ (статус: Доктор наук), 18 января 2011, 21:53 [#31]:
Цитата (Адмирал):
ну почитал, там написанно, что нужно объявлять в блоке programm
где оН? плз не тыкать ссылками
крут
чото я не понял
Награда нашла своего героя!!!!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 18 января 2011, 21:55 [#32]:
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Адмирал (статус: Посетитель), 19 января 2011, 12:19 [#33]:
да по правде не получается, кстати на сайте мат разрешён чтоле?
|
|
|
Тов. Женька (статус: 3-ий класс), 19 января 2011, 12:28 [#34]:
Цитата (Адмирал):
кстати на сайте мат разрешён чтоле?
Ты еще выражаться начни. Тогда тебя точно и надолго пошлют.
Что не получается?
|
|
|
Адмирал (статус: Посетитель), 19 января 2011, 13:34 [#35]:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XMLBrokr, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Value: Int64;
implementation
вот у меня такой код, но в 3 юните всё равно ошибку выдаёт
|
|
|
Адмирал (статус: Посетитель), 19 января 2011, 13:34 [#36]:
на переменную value
|
|
Вадим К (статус: Академик), 19 января 2011, 13:45 [#37]:
ну так значит идем в третий юнит
после слова implementation нужно дописать uses unit1;
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Тов. Женька (статус: 3-ий класс), 19 января 2011, 13:48 [#38]:
А в третьем юните в разделе uses Unit1 прописано?
|
|
|
Адмирал (статус: Посетитель), 19 января 2011, 13:56 [#39]:
procedure TForm2.Button1Click(Sender: TObject);
function CheckEdit(AEdit: TEdit; var Value: Int64): Boolean;
var
Bit: Byte; // Кол-во разрядов сдвига
begin
Result:= TryStrToInt64(AEdit.Text, Value); // Попытка преобразовать текст в число
if Result
then begin // Проверка, что число = 2^Bit (3 <= Bit <= 63)
for Bit:= 3 to 63 do
if Value = Int64(1) shl Bit // 8, 16, 32, 64, ..., -9223372036854775808
then Exit;
Result:= False;
end;
end;
var Value: Int64;
begin
if CheckEdit (Edit1, Value)
then
begin
Value:=StrToInt(Edit1.Text);
Form3.Show;
Form2.Close;
end
procedure TForm3.Button1Click(Sender: TObject);
begin
if Value = 8 then
Form4.Show;
Form4.Image1.Picture.LoadFromFile ('Картинки\298.jpg');
end;
почему условие не случается
|
|
|
min@y™ (статус: Доктор наук), 19 января 2011, 13:57 [#40]:
Я, например, глобальные переменные использую тогда и только тогда, когда по-другому никак.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Страницы: [« Предыдущая] [1] [2] [3] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
