subj

← →
clark (2005-11-08 01:15) [0]

у меня следуйшая проблема.

procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,x3,k1,k2,i:integer;
begin
x1:=StrToInt(edit1.Text);
x2:=StrToInt(edit2.Text);
x3:=StrToInt(label1.Caption);
if button1.Visible=true then
begin
k1:=x1;
k2:=x2;
end;
if radiobutton1.Checked then
begin
for i:=k1 downto k2 do
begin
label1.Caption:=FloatTOStr(i);
sleep(250);
application.ProcessMessages;
end;
end;
if radiobutton2.Checked then
begin
k1:=x1;
k2:=x2;
for i:=k1 to k2 do
begin
label1.Caption:=FloatTOStr(i);
sleep(250);
application.ProcessMessages;
end;
end;
end;

вот на этом коде когда добавляю строку x3:=StrToInt(label1.Caption); прога перестает работат,а когда убераю все нормально работает.в чем моя ошыбка?прошу помоч.

← →
Digitman © (2005-11-08 08:24) [1]

> в чем моя ошыбка?

ошибка - в ошЫбке)

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

и что значит "перестает работат" ?

← →
Tonich © (2005-11-08 13:29) [2]

> if button1.Visible=true then
> begin
> k1:=x1;
> k2:=x2;
> end;

кстати тоже очень интересный момент

← →
Tonich © (2005-11-08 13:31) [3]

хотя конечно да, ты ее ж можешь вызывать и просто в тексте программы

> когда добавляю строку x3:=StrToInt(label1.Caption); прога
> перестает работат

наверное там что-то на целое число не похожее

subj Найти похожие ветки