Помогите с кодом

[DM_bite]

Имееться некая процедура:

procedure TForm1.DiscClick(Sender: TObject);
begin
StaticText4.Caption :=
IntToStr( StrToInt(Edit3.Text)* StrToInt(Edit3.Text) - StrToInt(Edit4.Text)* StrToInt(Edit5.Text)* 4 );
end;

Как можно сократить этот код используя переменные.Объясните plz)

[Noor]

ну сократить это громко сказано

procedure TForm1.DiscClick(Sender: TObject);
var
e3,e4,e5:Integer;
begin
 e3 := StrToInt(Edit3.Text);
 e4 := StrToInt(Edit4.Text);
 e5 := StrToInt(Edit5.Text);
 StaticText4.Caption := IntToStr( e3*e3 - e4* e5 * 4 );
end;
end.

[DM_bite]

вот этого мне и надо было....

procedure TForm1.DiscClick(Sender: TObject);
begin
StaticText4.Caption :=
IntToStr( StrToInt(Edit3.Text)* StrToInt(Edit3.Text) - StrToInt(Edit4.Text)* StrToInt(Edit5.Text)* 4 );
end;

Просто в дальнейшей работе это очень поможет.Спасибо!

[Noor]

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

вот этого мне и надо было....
Просто в дальнейшей работе это очень поможет.Спасибо!

если ты планируешь использовать значения пременных e3,e4,e5 в других процедурах, то объяви их (e3,e4,e5)- как глобальные переменные

[DM_bite]

Еще вопрос на эту же тему: какой переменной можно заменить StaticText4.Caption?

[Noor]

любой переменной String, но все равно тебе же нужно будет кудато выводить значение перменной String
Пример:

procedure TForm1.DiscClick(Sender: TObject);   
var   
e3,e4,e5:Integer;
Rez:String;   
 begin   
  e3 := StrToInt(Edit3.Text);   
  e4 := StrToInt(Edit4.Text);   
  e5 := StrToInt(Edit5.Text);
  Rez:= IntToStr( e3* e3 - e4* e5 * 4 );
  StaticText4.Caption := Rez;   
 end;   
end.

теперь вместо строки
StaticText4.Caption := IntToStr( e3*e3 - e4* e5 * 4 );

появилось 2 новых
Rez:String; и Rez:= IntToStr( e3* e3 - e4* e5 * 4 );

[DM_bite]

В этой же теме: А как извлечь корень из числа*???

[Arigato]

Функция sqrt
P.S. Прежде, чем задавать такие вопросы, полистайте хотя бы учебник по Pascal

[DM_bite]

P.S. Прежде, чем задавать такие вопросы, полистайте хотя бы учебник по Pascal

А вот где бы достать его.......есть книжонка по Delphi 7, но там даже намека нет на все вышесказанное и написанное. =) И есчо, никакой учебник не заменит живого человека!А раз есть такой раздел для новичков, почему бы не воспользоваться случаем?

[Noor]

Функция Sqrt возвращает квадратный корень числа (Number)
Число должно быть вещественного типа.
Особые значения перечислены ниже:
Infinity : Бесконечность
-0 : -0
NaN (Not a Number - не число) : не число

var
  number, squareRoot : Extended;

begin
  // Квадратный корень 225 = 15
  number  := 225;
  squareRoot := Sqrt(number);
  ShowMessageFmt('Квадратный корень %f = %f',[number, squareRoot]);

  // The square root of 3.456 = 1.859...
  number  := 3.456;
  squareRoot := Sqrt(number);
  ShowMessageFmt('Квадратный корень %7.3f = %12.12f',[number, squareRoot]);

  // Квадратный корень бесконечности тоже бесконечность
  number := Infinity;
  number := Sqrt(number);
  ShowMessageFmt('Квадратный корень бесконечности = %f',[number]);
end;

Квадратный корень 225.0 = 15.0
Квадратный корень 3.456 = 1.859032006180
Квадратный корень бесконечности = INF
--------
Соглашусь с Arigato читайте книги по программированию, много оплезного
ну и достаточно Справочных рескрсов вот ПРИМЕР