Скачать: CL | DM;

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]

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

---

← →
umbra ©   (2005-11-08 13:35) [4]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c