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) ) Не могу понять в чем проблема и как ее решить
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. Заранее спасибо
и даже просто if form1.btnInstall.Visible then... а если это в модуле form1, то и без form1. if btnInstall.Visible then...
Я в программирование полный ноль.... Мне нужен "онлайн" иллюстрированный учебник по делфи. Если кто знает где есть доступный курс, киньте ссылку плз.
marlen насчет он-лайн, советую почитать темы форумов: realcoding.net vingrad.ru (по большей части посты форума) sources.ru
По-моему, никак (если кто знает как-поправьте). Но можно узнать есть ли в нем диск, в простейшем случае так: 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. Если нет, то сначала его придется найти.
asm push eax mov eax,offset i mov a,eax pop eax end; I - твоя переменная который хочешь получить адресс, A - переменная куда будет записан адресс переменной в памяти.