Нужно прочитать код
Procedure SetPort(p:word;b:byte);stdcall;
{$ifdef RWPort}
var
len: cardinal;
written: cardinal;
{$endif}
begin
{$ifdef RWPort}
len:= 1;
WriteFile(hport,b,len,written,nil);
{$else}
asm
push edx
push eax
mov dx,p
mov al,b
out dx,al
pop eax
pop edx
end;
И что туту значит условная компиляция.
Заранее спасибо.
{$ifdef RWPort}
var
len: cardinal;
written: cardinal;
{$endif}
begin
{$ifdef RWPort}
len:= 1;
WriteFile(hport,b,len,written,nil);
{$else}
asm
push edx
push eax
mov dx,p
mov al,b
out dx,al
pop eax
pop edx
end;
И что туту значит условная компиляция.
Заранее спасибо.
Цитата:
Originally posted by wishco
И что туту значит условная компиляция.
И что туту значит условная компиляция.
Если присутствует $define RWPort, то включить в код участки, заключенные в директивы $ifdef/$endif
К примеру кнопка на форме. И код в ней.
procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF debug}
ShowMessage('sdsd');
{$ENDIF}
end;
Что нужно сделать, чтобы ShowMessage('sdsd');
сработало?
Я в этом языке несколько дней.
Не серчайте на меня ответьте пожалуйста.
Куда зайти?
procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF debug}
ShowMessage('sdsd');
{$ENDIF}
end;
Что нужно сделать, чтобы ShowMessage('sdsd');
сработало?
Я в этом языке несколько дней.
Не серчайте на меня ответьте пожалуйста.
Куда зайти?
Цитата:
Originally posted by wishco
К примеру кнопка на форме. И код в ней.
procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF debug}
ShowMessage('sdsd');
{$ENDIF}
end;
Что нужно сделать, чтобы ShowMessage('sdsd');
сработало?
Я в этом языке несколько дней.
Не серчайте на меня ответьте пожалуйста.
Куда зайти?
К примеру кнопка на форме. И код в ней.
procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF debug}
ShowMessage('sdsd');
{$ENDIF}
end;
Что нужно сделать, чтобы ShowMessage('sdsd');
сработало?
Я в этом языке несколько дней.
Не серчайте на меня ответьте пожалуйста.
Куда зайти?
нужно вставить директиву {$DEFINE debug} или что то в этом роде.
и дам тебе совет -- никогда не спрашивай "куда сходить?"
Цитата:
Originally posted by LM(AL/M)
нужно вставить директиву {$DEFINE debug} или что то в этом роде.
и дам тебе совет -- никогда не спрашивай "куда сходить?"
нужно вставить директиву {$DEFINE debug} или что то в этом роде.
и дам тебе совет -- никогда не спрашивай "куда сходить?"
вставить директиву {$DEFINE debug}!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Куда её вставить то ??????????????????????????????????????????????????????????????????????
Цитата:
Originally posted by wishco
вставить директиву {$DEFINE debug}!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Куда её вставить то ??????????????????????????????????????????????????????????????????????
вставить директиву {$DEFINE debug}!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Куда её вставить то ??????????????????????????????????????????????????????????????????????
{$DEFINE debug}
procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF debug}
ShowMessage('sdsd');
{$ENDIF}
end;
-- ну например так, а можешь в самом начале исходника )))