Label

[TimeChip]

Здравствуйте товарищи Программеры!
Я новечок, и поэтому у меня куча вопросов, но самый важный - это почему результат простейшей программы не выводит в Label! Я пробывал все меня свойства элемента, импортировал код программы с рабочего проекта (там результат выполнения выводит в Label), но даже с явно исправным кодом моя программа отказывается выводит результат в Label! Люди подскажите пожалуйста, что я делаю не так?!
На всякий случай вот код моей программы!
З.Ы. Отказываются выводить в Label все программы.

unit PI;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit; // точность вычисления
Button1: TButton; // кнопка Вычислить
Label1: TLabel;
Label2: TLabel; // поле выода результата
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var
pi:real; // вычисляемое значение ПИ
t:real; // точность вычисления
n:integer; // номер члена ряда
elem:real; // значение члена ряда
begin
pi:=0;
n:=1;

t:=StrToFloat(edit1.text);
elem:=1; // чтобы начать цикл
while elem >= t do
begin
elem:=1/(2*n-1);
if n MOD 2 = 0
then pi:=pi-elem
else pi:=pi+elem;
n:=n+1;
end;
pi:=pi*4;
label2.caption:= 'ПИ равно '+ FloatToStr(pi) + #13
+ 'Просуммировано '+IntTostr(n)+' членов ряда.';
end;

end.

[Kotofff]

У меня твой код заработал и вывел в Label :

ПИ равно 2,666666666667
Просуммировано 3 членов ряда

[maladoy]

имхо свойство Visible у label false

[TimeChip]

Установка свойства Visible в False толку не дало, все равно программа отказывается прописывать результат в Label!
В чем еще может быть причина?

[Terran]

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

Установка свойства Visible в False толку не дало, все равно программа отказывается прописывать результат в Label!
В чем еще может быть причина?

Ваш код рабочий, у меня всё работает. Что бы сказать вам точно что у вас не так, выложите свой исходник целиком. Мы его посмотрим.

[maladoy]

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

Ваш исходник рабочий! У меня всё работает. Что бы сказать вам точно что у вас не так выложите свой исходник целиком. Мы его посмотрим.

причем желательно весь проект с формами

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

Установка свойства Visible в False толку не дало, все равно программа отказывается прописывать результат в Label!
В чем еще может быть причина?

надо было его в true ставить!!!!!

[TimeChip]

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

Ваш код рабочий, у меня всё работает. Что бы сказать вам точно что у вас не так, выложите свой исходник целиком. Мы его посмотрим.

Пожалуйста выкладываю!

[Terran]

Всё понятно! Вы не сделали обработчик события на нажатие кнопки! Запустите свой проект и нажмите дважды по кнопке "Вычислить" и потом перекомпилируйте проект. Всё будет работать.

[TimeChip]

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

Всё понятно! Вы не сделали обработчик события на нажатие кнопки! Запустите свой проект и нажмите дважды по кнопке "Вычислить" и потом перекомпилируйте проект. Всё будет работать.

Большое спасибо за помощь юному программеру! Все заработало!!

[TimeChip]

У меня снова проблема!
Хотел прорисовать Систему координат X,Y и сетку, прописал код, но при запуске ничего не происходит. Код брал с учебника!
Что я сделал не так, помогите пожалуйста!
Выкладываю исходники!