Не могу найти ошибку!

[Эдуард]

Не могу найти ошибку,поможите!

void print()
Label1->Caption="Нет корней";

void __fastcall TForm1::Button1Click(TObject *Sender)
{
double a,b,c;
	a=Edit1->Text.ToDouble();
	b=Edit2->Text.ToDouble();
	c=Edit3->Text.ToDouble();
	int d=b*b+4*a*c;
	if (d<0) print()

	double x1=(-b+sqrt(d))/(2*a);
	double x2=(-b-sqrt(d))/(2*a);
	Label1->Caption=String(x1)+"   ;\r\n   "+String(x2);

}

Ошибка здесь void print()
Label1->Caption="Нет корней"; но в чем именно????Я хотел создать функцию вывода результата(это нужно для более серьезной проги),но похоже так делать нельзя,а как же можно????


И еще один вопрос.Мне необходимо чтобы результат выводился так:
X1=5

Label1->Caption="x1=" тут моя переменная...
Опишите синтаксис пожалуйста!!!

moderator: Используйте тег <CODE>

[merax]

1)

#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}


void print(TLabel *lb)
{
lb->Caption="Нет корней";
}

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 double a,b,c;

    a=Edit1->Text.ToDouble();
    b=Edit2->Text.ToDouble();
    c=Edit3->Text.ToDouble();

    int d=b*b+4*a*c;

    if (d<0)
    {
     print(Label1);
    }
    double x1=(-b+sqrt(d))/(2*a);
    double x2=(-b-sqrt(d))/(2*a);
    Label1->Caption=String(x1)+"   ;\r\n   "+String(x2);

}

2.

Label1->Caption=" x1= " + IntToStr(твоя переменная);

// Если целое то IntToStr если с плавающей точкой то FloatToStr

3) Пишите код красиво

[Эдуард]

Спасибо,большое!

[Эдуард]

#include <vcl.h>
#include <math.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x1,x2,a,b,c,d;




//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 void print(TLabel*lb)
 {
 lb->Caption="X1="+String(x1)+ " \r\n "+"X2=" +String(x2);
}

void raschet()
{
x1=(-b+sqrt(d))/(2*a);
x2=(-b-sqrt(d))/(2*a);
print(Label1);

}
 //---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

	a=Edit1->Text.ToInt();
	b=Edit2->Text.ToInt();
	c=Edit3->Text.ToInt();
        d=b*b+4*a*c;
	if (d<0)
        {
        Label1->Caption="No solves";
         }
        raschet();
       return;

}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------

Эта программа,как пример, моей проблемы.Почему если вложить в функцию raschet() функцию print(),то значения (решение) не выводится.Если можно,то пакажите на моем примере как правильно должно быть!!!

[B_N]

Пототму, что Label1, так же, как и lb и ищё что-там - это объекты класса TForm1, а функции print() и raschet() объявлены глобальными, соответственно они и пытаются найти такие глобальные переменные и потом что значит, "не выводится" должно даже "не компилироваться". Надо передавать в print() и raschet() указатель на переменную класса, с которой в данный момент происходит работа, а ещелучше сделать их членами класса, здесь, видимо, TForm1.
------------
P.S. вот в print() передается указатель на TLabel, а raschet() о нём знать не знает.

[Эдуард]

Блин,че то я в танке!Если можно разжуй,как сделать функции print() и raschet() членами класса TForm1.

[B_N]

void TForm1::print(TLabel*lb)
{ 
	lb->Caption="X1="+String(x1)+ " \r\n "+"X2=" +String(x2); 
}  

void TForm1::raschet()
{ 
	x1=(-b+sqrt(d))/(2*a); 
	x2=(-b-sqrt(d))/(2*a); 
	print(Label1); 
}

И в заголовке Unit1.h объявить raschet() и print(TLabel*) внутри класса TForm1.

[Эдуард]

Спасибо,друг B_N за помощь!!!