Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 

Вывод переменной в Delphi7

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Компилируемые языки] >> Вывод переменной в Delphi7
Имя
Сообщение << Старые топики   Новые топики >>
Вывод переменной в Delphi7 - 2009-01-31 23:00:54.890000   
raven314

Сообщений: 101
Оценки: 0
Присоединился: 2008-11-02 11:03:05.490000
Вообщем есть таймер, который меняет значение переменной z. Так вот, как можно вывести меняющееся значение переменной в элементе, допустим, label?
Post #: 1
RE: Вывод переменной в Delphi7 - 2009-01-31 23:12:15.470000   
QunneD

Сообщений: 833
Оценки: 0
Присоединился: 2008-11-09 20:54:38.113333
Label1.Caption := z;
Post #: 2
RE: Вывод переменной в Delphi7 - 2009-02-01 03:41:23.930000   
kreol

Сообщений: 823
Оценки: 0
Присоединился: 2007-03-08 03:13:06.876666
Сегодня день тупых вопросов по Делфи? Или Label1.Caption := z, если z - строка, или преобразовать z в строку из того типа, которым он является, и тогда присвоить получившееся значение кепшену.
Post #: 3
RE: Вывод переменной в Delphi7 - 2009-02-01 08:12:06.280000   
raven314

Сообщений: 101
Оценки: 0
Присоединился: 2008-11-02 11:03:05.490000
quote:

ORIGINAL: QunneD

Label1.Caption := z;

хм.. мне нужно чтобы капшен вот так отображалсо:
l1.caption:='Выключение произойдет (тут дожлно выводиццо значение z) секунд';
к примеру
Post #: 4
RE: Вывод переменной в Delphi7 - 2009-02-01 12:15:14.770000   
kreol

Сообщений: 823
Оценки: 0
Присоединился: 2007-03-08 03:13:06.876666
И утро тупых вопросов… Читай книгу. Больше ничего не скажу.
Post #: 5
RE: Вывод переменной в Delphi7 - 2009-02-01 12:26:14.980000   
raven314

Сообщений: 101
Оценки: 0
Присоединился: 2008-11-02 11:03:05.490000
хм. ок.
*ушел(шла) читать манул*
Post #: 6
RE: Вывод переменной в Delphi7 - 2009-02-01 12:48:21.710000   
QunneD

Сообщений: 833
Оценки: 0
Присоединился: 2008-11-09 20:54:38.113333
отправил в личку как сделать… но советую тебе книжку почитать…
Post #: 7
RE: Вывод переменной в Delphi7 - 2009-02-01 15:16:49.143333   
raven314

Сообщений: 101
Оценки: 0
Присоединился: 2008-11-02 11:03:05.490000
народ, че тут делать?))
прога работает так, есть переменная x:=edit1.text. при нажатии на кнопку, станвиццо условие. если x=1 то прога запускает таймер. так вот, изначально у нее тип string, в условии я поставил strtoint. и если запустить прогу, и ввести 1 то выскакивает это окоонце =/ че делать?
Post #: 8
RE: Вывод переменной в Delphi7 - 2009-02-01 15:19:28.880000   
Sunzer

Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
Label1.Caption:='Выключение произойдет через '+IntToStr(z)+' секунд.';
Post #: 9
RE: Вывод переменной в Delphi7 - 2009-02-01 15:20:54.620000   
unconnected2

Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000
Давай код, твои объяснение очень туманны. "Это оконце" обычно означает, что ты переменной целого типа присвоил какое-то строковое значение.
Post #: 10
RE: Вывод переменной в Delphi7 - 2009-02-01 15:33:46.466666   
raven314

Сообщений: 101
Оценки: 0
Присоединился: 2008-11-02 11:03:05.490000
type
TForm1 = class(TForm)
l1: TLabel;
t1: TTimer;
b1: TButton;
e1: TEdit;
procedure e1Change(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure t1Timer(Sender: TObject);
procedure b1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
z:integer;
x:string;
implementation

{$R *.dfm}

procedure TForm1.e1Change(Sender: TObject);
begin
e1.text:=x;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
z:=5;
if z=0 then application.Terminate;
end;

procedure TForm1.t1Timer(Sender: TObject);
begin
z:=z-1;
end;

procedure TForm1.b1Click(Sender: TObject);
begin
if strtoint(x)=1 then
begin
t1.Enabled:=true;
ShowMessage('Поздравляю, мозг у вас есть.'#13'Завершение программы произойдет через '+inttostr(z)+' секунд');
end;
end;

end.
Post #: 11
RE: Вывод переменной в Delphi7 - 2009-02-01 15:57:11.583333   
QunneD

Сообщений: 833
Оценки: 0
Присоединился: 2008-11-09 20:54:38.113333
quote:

Label1.Caption:='Выключение произойдет через '+IntToStr(z)+' секунд.';

Я ему такой-же код давал… он мне в личке написал "Спасибо выручил…"
Post #: 12
RE: Вывод переменной в Delphi7 - 2009-02-01 16:02:12.266666   
unconnected2

Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000
Интервал таймера поставить не забыл?

quote:

procedure TForm1.FormActivate(Sender: TObject);
begin
z:=5;
if z=0 then application.Terminate;
end;


Это вынесло напрочь.
Post #: 13
RE: Вывод переменной в Delphi7 - 2009-02-01 16:06:52.706666   
QunneD

Сообщений: 833
Оценки: 0
Присоединился: 2008-11-09 20:54:38.113333
Короче чел давай говори словами то что тебе нужно, и я тебе накатаю.
Post #: 14
RE: Вывод переменной в Delphi7 - 2009-02-01 16:17:12.153333   
QunneD

Сообщений: 833
Оценки: 0
Присоединился: 2008-11-09 20:54:38.113333
Вот короче накатал пример того что понял http://www.rewancer.com/primer.rar
Post #: 15
RE: Вывод переменной в Delphi7 - 2009-02-01 16:28:40.230000   
raven314

Сообщений: 101
Оценки: 0
Присоединился: 2008-11-02 11:03:05.490000
все, спс, я просто не мог догнать с inttostr, точнее как это реализовать. все спс, объяснили)
Post #: 16
Страниц:  [1]
Все форумы >> [Компилируемые языки] >> Вывод переменной в Delphi7







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.