Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

subj

clark © (2005-11-08 01:15:00)
у меня следуйшая проблема.

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); прога перестает работат,а когда убераю все нормально работает.в чем моя ошыбка?прошу помоч.

umbra (2005-11-08 13:35:00) [1]

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

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

Tonich (2005-11-08 13:31:00) [2]
хотя конечно да, ты ее ж можешь вызывать и просто в тексте программы

Tonich (2005-11-08 13:29:00) [3]

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

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

Digitman (2005-11-08 08:24:00) [4]

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

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

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »