Начну с того что я пока что всего лишь учусь, так что за чушь которую я скорее всего начну сейчас нести не судите строго...
Полюбому здесь есть те кто хорошо разбирается в Delphi.
Так вот. Я начал изучать крек напару с этим языком(пишу левые крякмиксы, а потом рассматриваю их под отладчиком).
Проблема собственно заключается в том что мой проект не хочет компилироваться, а после некоторых изменений компилится, но неправильно. Проэкт представляет из себя обычный Дискриминант кот. начнёт считать тока после регистрации.
Вот код:

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}


function Unreg: Boolean ;
var
reg: string ;
realreg: string ;
begin
result:=false ;
realreg:='ERn@ndo' ;

reg:=InputBox('Registration','Enter you Serial number','') ;

if reg<>realreg then
begin

ShowMessage('You invalid serial number. Try agean!');
Unreg:=False;
end
else
begin

ShowMessage('Thank You');
Unreg:=True;
end
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
Unreg;


end;
procedure TForm1.Button1Click(Sender: TObject);
var
a: real ;
b: real ;
c: real ;
x1,x2,d: real ;
r: boolean;
label
loop;
begin
if Unreg then
begin
ShowMessage('Please to Rigister');
goto loop;
end
else


a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
d:=Sqr(b)-4*a*c ;

if d=0 then
begin
x1:=b/2*a ;
Label1.Caption:='Уравнение имеет только один корень'+ #13 +
'X = '+ FloatToStr(x1) ;
end ;

if d<0 then
begin
Label1.Caption:='Уравнение корней не имеет' ;
end

else
begin
x1:=(-b-Sqrt(d))/(2*a);
x2:=(-b+Sqrt(d))/(2*a);
Label1.Caption:= 'D = ' + FloatToStr(d) + #13
+ 'X1 = ' + FloatToStr(x1) + #13 + 'X2 = ' +
FloatToStr(x2);

loop:

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;

end;
end.


Вообще у меня ещё очень много вопросов но наверное они покажуться вам слишком глупыми.
Заранее спасибо....

| Сообщение посчитали полезным:

Если хочешь, чтоб функция значение вернула, писать надо result:=true; или false, а не имя функции. Чего она тут переприсваивает-хрен знает, адрес функции может и после первого же прохода работать будет некорректно. А вообще почитал бы основы Дельфей. Да и начинать надо ломать с программ на асме или С, но никак не Дельфи. Кракми возьми типа фантомовских.

| Сообщение посчитали полезным:

Изменил но всё равно бестолку.
Из уебника много не узнаешь(всё равно я их почитываю).
А насчёт С и асма, всему своё время.

| Сообщение посчитали полезным:

1.
label loop;
begin
if Unreg then begin ShowMessage('Please to Rigister');
goto loop; <- ненадо это
end;
сдесь не нужен оператор GOTO

2.
if Unreg then begin <- сдесь заменить Unreg = False, т.к у тебя при успешной проверке возвращается True
ShowMessage('Please to Rigister');
goto loop; <- ненадо это
end
else

| Сообщение посчитали полезным:

Ernando пишет:
А насчёт С и асма, всему своё время.
Неправильно мыслишь - делфи тебе не поможет понять устройство работы программ. Лучше возьми с++ и пиши для консоли.

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

| Сообщение посчитали полезным:

Ernando

в следующий раз тема с таким названием будет удалятся сразу

| Сообщение посчитали полезным:

unit Unit1;

interface

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

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

var
Form1: TForm1;
Unreg: Boolean = True;

implementation

{$R *.dfm}


function Registration: Boolean ;
var
reg: string ;
realreg: string ;
begin
result:=false ;
realreg:='Maximus ' ;

reg:=InputBox('Registration','Enter you Serial number','') ;

if reg<>realreg then
begin

ShowMessage('You invalid serial number. Try agean!');
Result:=True;
end
else
begin

ShowMessage('Thank You');
Result:=False;
end
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
Unreg:=Registration;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a: real ;
b: real ;
c: real ;
x1,x2,d: real ;
r: boolean;
begin
if Unreg then
begin
ShowMessage('Please to Rigister');
end
else begin


a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
d:=Sqr(b)-4*a*c ;

if d=0 then
begin
x1:=b/2*a ;
Label1.Caption:='Уравнение имеет только один корень'+ #13 +
'X = '+ FloatToStr(x1) ;
end ;

if d<0 then
begin
Label1.Caption:='Уравнение корней не имеет' ;
end
else
begin
x1:=(-b-Sqrt(d))/(2*a);
x2:=(-b+Sqrt(d))/(2*a);
Label1.Caption:= 'D = ' + FloatToStr(d) + #13
+ 'X1 = ' + FloatToStr(x1) + #13 + 'X2 = ' +
FloatToStr(x2);
end;
end;

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;

end.

-----
StarForce и Themida ацтой!

| Сообщение посчитали полезным:

Archer пишет:
Если хочешь, чтоб функция значение вернула, писать надо result:=true; или false, а не имя функции.
Всё он правильно сделал, почитай основы паскаля, Result только в Delphi появился, и присваивать можно любым способом...

-----
Yann Tiersen best and do not fuck

| Сообщение посчитали полезным:

Может заменить if reg<>realreg на AnsiCompareString или AnsiCompareText ???

| Сообщение посчитали полезным: