[m1sclick]

Собственно есть код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: string;
i: integer;
label
shitman;
begin
Application.Minimize;
Edit1.Text:='';
a:= code;
if a = code then
 b:= is;
shitman:
for i:=0 to 99999 do
if i>0 then
begin
  c:= fake;
  Edit1.Text:= a+' '+b+' '+c+'.';
end;
if i<0 then
begin
  c:=true;
  Edit1.Text:= a+' '+b+' '+c+'.';
end;
end;
if CheckBox1.Checked then
begin
  Application.Restore;
  Timer1.Enabled:=true;
  Timer1.Interval:=30000;
  Edit1.Text:='wtf';
  Goto shitman;
end;
Application.Restore;
end;

Собственно ругается на метку. Пишет:

Invalid Pointer Operation

Без метки никак не обойтись разве что копировать весь цикл еще и под оператор проверки CheckBox1. Думаю рациональнее будет использовать метку чем увеличивать код еще на 50 строк.

И вопросы - Почему ругается? Как исправить?
Спасибо за помощь.

[Konrad]

PHP код:

a:= code;
if a = code then
 b:= is;
.................
begin
  c:= fake;
.................
begin
  c:=true;
................. 


Это что за ересь?
Возможно ты хочешь написать "Соde is fake"?

А это?:

PHP код:

for i:=0 to 99999 do
.......
if i<0 then
begin 


У тебя и так i>=0;

Что именно ты хочешь от проги?

Проверить правильный ли код?

И в итоге получается что ты хочешь 99999 раз присвоить Edit1.Text:= "Code is fake"?

Зачем?


П.с.: по теме: метка описана и вызвана правильно.
Но весь код ужесть.

[Pilot_Red]

Сообщение от Konrad

PHP код:

a:= code;
if a = code then
 b:= is;
.................
begin
  c:= fake;
.................
begin
  c:=true;
................. 


Это что за ересь?
Возможно ты хочешь написать "Соde is fake"?

А это?:

PHP код:

for i:=0 to 99999 do
.......
if i<0 then
begin 


У тебя и так i>=0;

Что именно ты хочешь от проги?

Проверить правильный ли код?

Это не код, а вирус, используется 25-й кадр. Глядя на этот "текст" мозг тупо входит в ступр а потом отключается

[ART]

Автор сам похоже не понимает, что хочет от кода )

[m1sclick]

Какбэ строчка code is fake должна намекать на то что код фейковый.
Вобще все кроме внутренностей операторов и цикла здесь такие же как и должены быть в реале только там всякие запросы отправляются.
Может из за того что из под if вызываю не работает?

[angvelem]

Наверное спросонья был когда писал.

[Konrad]

Сообщение от m1sclick

Какбэ строчка code is fake должна намекать на то что код фейковый.

Напиши словами: что должна делать твоя программа?