[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    txtA: TEdit;
    txtB: TEdit;
    txtC: TEdit;
    txtR: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 A,B,C,R   : integer;
begin
 A:=StrToInt(txtA.Text);
 B:=StrToInt(txtB.Text);
 C:=StrToInt(txtC.Text);

 R:=a+b+c

 txtR.Text:=IntToStr(r)
end;

end.

Хочу компелить так он мне пишет это! (и указывает красным фоном на строку txtR.Text:=IntToStr(r) )



Не могу понять в чем проблема и как ее решить

 

diznt
R:=a+b+c;
точку с запятой поставь и ниже

 

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    txtA: TEdit;
    txtB: TEdit;
    txtD: TEdit;
    txtC: TEdit;
    butAction: TButton;
    ButClose: TButton;
    procedure butActionClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.butActionClick(Sender: TObject);
var
 a,b,c,d    : integer;
begin
 a:=StrToInt(txtA.Text);
 b:=StrToInt(txtB.Text);

  if d='+' then
   begin
    c:=a-b;
   end;

  if d='-' then
   begin
    c:b-a;
   end;

 txtC.Text:=IntToStr(c);

end;

end.

Пишет ошибки......

 

Code:

if d='-' then
   begin
[COLOR=Red][B]    c:b-a;[/B][/COLOR]
   end;

Стоит обратить внимание на 3 строчку

 

А точн))) такс теперь убралась проблема
" ':=' expected but ':' found "
А другие что обозначают и как убрать???

 

Code:

  if d='+' then
   begin
    c:=a-b;
   end;

  if d='-' then
   begin
    c:b-a;
   end;

Парень если у тебя тип integer, нахрен присваивать String(строковую переменную)????

Code:

d='-'
d='+'

Такие записи не верны.

 

Народ а как проверить что сдром закрыт (командой конечно)???
То есть к примеру если сдром закрыт то выполняем то .......

И еще как сделать так чтобы при нажатии кнопки опеределеный файл запускался??? Путь до файла не известен

 

Почему не работает:
if form1.btnInstall.Visible:= True
then
paWelcome.Parent := paMain;
end;
Выдает ошибку [Error] fSetup.pas(255): Type of expression must be BOOLEAN. Заранее спасибо

 

2 _GlaD1aT(OR)_
if form1.btnInstall.Visible:= True
меняем на
if (form1.btnInstall.Visible==True)

 

Этож делфи..
во: if form1.btnInstall.Visible=True then

 

и даже просто
if form1.btnInstall.Visible then...
а если это в модуле form1, то и без form1.
if btnInstall.Visible then...

 

Всем спасибо

 

Как выполнить ShellCode в дельфях?!

в C+ это выглядело примерно так :

 

Я в программирование полный ноль....
Мне нужен "онлайн" иллюстрированный учебник по делфи.
Если кто знает где есть доступный курс, киньте ссылку плз.

 

marlen насчет он-лайн, советую почитать темы форумов:
realcoding.net
vingrad.ru (по большей части посты форума)
sources.ru

 

UP!

 

По-моему, никак (если кто знает как-поправьте). Но можно узнать есть ли в нем диск, в простейшем случае так:

Code:

function CheckCD(vol: string):boolean; 
begin  
  Result:=false;  
  try   
   ChDir(vol);
   Result:=true;  
  except 
  end; 
end;

И еще можно закрыть или открыть лоток:

Code:

uses mmsystem;
...
mciSendString('Set cdaudio door open wait', nil, 0, handle); // открыть 
mciSendString('Set cdaudio door closed wait', nil, 0, handle); //закрыть

Если файл в текущем или общедоступном каталоге, то просто выполнить через WinExec, CreateProcess или ShellExecute. Если нет, то сначала его придется найти.

 

в Pascal. например, есть

подскажите, плз, как получить адрес переменной и выести его на экран ?

 

получение адреса переменной
указатель := @имя переменной

 

asm
push eax
mov eax,offset i
mov a,eax
pop eax
end;

I - твоя переменная который хочешь получить адресс, A - переменная куда будет записан адресс переменной в памяти.