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

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. diznt

    diznt Elder - Старейшина

    Joined:
    31 Jan 2008
    Messages:
    432
    Likes Received:
    164
    Reputations:
    -19
    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) )

    [​IMG]

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

    Indig0 New Member

    Joined:
    28 Jul 2008
    Messages:
    9
    Likes Received:
    3
    Reputations:
    0
    diznt
    R:=a+b+c;
    точку с запятой поставь и ниже :p
     
    1 person likes this.
  3. diznt

    diznt Elder - Старейшина

    Joined:
    31 Jan 2008
    Messages:
    432
    Likes Received:
    164
    Reputations:
    -19
    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.
    Пишет ошибки......

    [​IMG]
     
  4. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Code:
    if d='-' then
       begin
    [COLOR=Red][B]    c:b-a;[/B][/COLOR]
       end;
    Стоит обратить внимание на 3 строчку:)
     
  5. diznt

    diznt Elder - Старейшина

    Joined:
    31 Jan 2008
    Messages:
    432
    Likes Received:
    164
    Reputations:
    -19
    А точн))) такс теперь убралась проблема
    " ':=' expected but ':' found "
    А другие что обозначают и как убрать???
     
  6. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Code:
      if d='+' then
       begin
        c:=a-b;
       end;
    
      if d='-' then
       begin
        c:b-a;
       end;
    
    Парень если у тебя тип integer, нахрен присваивать String(строковую переменную)????
    Code:
    d='-'
    d='+'
    Такие записи не верны.
     
  7. diznt

    diznt Elder - Старейшина

    Joined:
    31 Jan 2008
    Messages:
    432
    Likes Received:
    164
    Reputations:
    -19
    Народ а как проверить что сдром закрыт (командой конечно)???
    То есть к примеру если сдром закрыт то выполняем то .......

    И еще как сделать так чтобы при нажатии кнопки опеределеный файл запускался??? Путь до файла не известен
     
    #1927 diznt, 3 Aug 2008
    Last edited: 3 Aug 2008
  8. _GlaD1aT(OR)_

    _GlaD1aT(OR)_ Elder - Старейшина

    Joined:
    24 Jul 2008
    Messages:
    38
    Likes Received:
    15
    Reputations:
    0
    Почему не работает:
    if form1.btnInstall.Visible:= True
    then
    paWelcome.Parent := paMain;
    end;
    Выдает ошибку [Error] fSetup.pas(255): Type of expression must be BOOLEAN. Заранее спасибо
     
  9. FIND_ERROR

    FIND_ERROR Elder - Старейшина

    Joined:
    30 Apr 2007
    Messages:
    70
    Likes Received:
    14
    Reputations:
    0
    2 _GlaD1aT(OR)_
    if form1.btnInstall.Visible:= True
    меняем на
    if (form1.btnInstall.Visible==True)
     
  10. Indig0

    Indig0 New Member

    Joined:
    28 Jul 2008
    Messages:
    9
    Likes Received:
    3
    Reputations:
    0
    Этож делфи.. :rolleyes:
    во: if form1.btnInstall.Visible=True then
     
  11. life96

    life96 Elder - Старейшина

    Joined:
    9 Apr 2008
    Messages:
    51
    Likes Received:
    18
    Reputations:
    23
    и даже просто
    if form1.btnInstall.Visible then... :)
    а если это в модуле form1, то и без form1.
    if btnInstall.Visible then...
     
  12. _GlaD1aT(OR)_

    _GlaD1aT(OR)_ Elder - Старейшина

    Joined:
    24 Jul 2008
    Messages:
    38
    Likes Received:
    15
    Reputations:
    0
    Всем спасибо
     
  13. slider

    slider Reservists Of Antichat

    Joined:
    4 Sep 2005
    Messages:
    501
    Likes Received:
    711
    Reputations:
    748
    Как выполнить ShellCode в дельфях?!

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

     
    2 people like this.
  14. marlen

    marlen New Member

    Joined:
    5 Apr 2008
    Messages:
    17
    Likes Received:
    2
    Reputations:
    0
    Я в программирование полный ноль....
    Мне нужен "онлайн" иллюстрированный учебник по делфи.
    Если кто знает где есть доступный курс, киньте ссылку плз.
     
  15. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    marlen насчет он-лайн, советую почитать темы форумов:
    realcoding.net
    vingrad.ru (по большей части посты форума)
    sources.ru
     
    1 person likes this.
  16. slider

    slider Reservists Of Antichat

    Joined:
    4 Sep 2005
    Messages:
    501
    Likes Received:
    711
    Reputations:
    748
    UP!
     
  17. Snik

    Snik New Member

    Joined:
    26 Jun 2008
    Messages:
    15
    Likes Received:
    3
    Reputations:
    0
    По-моему, никак (если кто знает как-поправьте). Но можно узнать есть ли в нем диск, в простейшем случае так:
    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. Если нет, то сначала его придется найти.
     
  18. hoty

    hoty Elder - Старейшина

    Joined:
    20 May 2008
    Messages:
    57
    Likes Received:
    10
    Reputations:
    1
    в Pascal. например, есть
    подскажите, плз, как получить адрес переменной и выести его на экран ?
     
    #1938 hoty, 4 Aug 2008
    Last edited: 4 Aug 2008
  19. AL Capone

    AL Capone Elder - Старейшина

    Joined:
    27 Mar 2007
    Messages:
    28
    Likes Received:
    29
    Reputations:
    5
    получение адреса переменной
    указатель := @имя переменной
     
  20. zl0y

    zl0y Banned

    Joined:
    13 Sep 2006
    Messages:
    371
    Likes Received:
    270
    Reputations:
    109
    asm
    push eax
    mov eax,offset i
    mov a,eax
    pop eax
    end;

    I - твоя переменная который хочешь получить адресс, A - переменная куда будет записан адресс переменной в памяти.
     
    1 person likes this.
Thread Status:
Not open for further replies.