Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:asd / корзина / delphi / Пример Edit Label форматный вывод / Unit1
.pas unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit3: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit4: TEdit;
Label9: TLabel;
Edit5: TEdit;
Edit6: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
u,r:integer;
a,b,x,y:real;
const
d=55;
z=32.035;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Caption:='Результат'; //изменим надпись на кнопке button1
u:=32 div 5+6;
r:=27-10 mod 4;
{Ввод x, y из полей edit1 и edit2}
x:=strtofloat (edit1.text);
y:=strtofloat (edit2.text);
{вывод на edit4 текстов из edit1.text и edit2.text с комментарием}
edit4.text:='x='+edit1.text + ' и y='+ edit2.text;
{ Вывод в Edit и в Label текста и числа 2-мя способами}
Label7.Caption:='Константа целого типа: '+ 'd='+IntToStr(d); // 1-й способ добавления
//целого числа d к тексту
Label8.Caption:='Константа целого типа: '+ format('d=%2d', [d]); // 2-й способ добавления
//целого числа d к тексту
edit5.text:='Константа целого типа: '+ 'd='+IntToStr(d); // 1-й способ добавления
//целого числа d к тексту
edit6.text :='Константа целого типа: '+ format('d=%2d', [d]); // 2-й способ добавления
//целого числа d к тексту
{----------------------------------------------------------}
a:=r+sqrt(2*d)/abs(z/(u+r)-y*x);
b:=(r*x+2)/(u+d)/(z*y)-a;
{вывод чисел в поле Edit }
edit1.Text:= format('a=%6.3f', [a]);// вывод числа в поле Edit с плавающей точкой
edit2.Text:= format('b=%6.3e', [b]);// вывод числа в поле Edit с фиксированной точкой:
{Вывод на метку, 1-й способ: через format}
label3.Caption:=format('с плавающей точкой: a=%6.3e', [a])+#13+
format('с фиксированной точкой: a=%6.3f', [a])+#13;
label4.Caption:=format('с плавающей точкой: b=%6.3e', [b])+#13+
format('с фиксированной точкой: b=%6.3f', [b])+#13;
{Вывод на метку, 2-й способ: без format}
label5.Caption:='u='+inttostr(u) +#13+'r='+inttostr(r)+#13+
'd='+inttostr(d)+#13+'z='+ floattostr(z);
Label6.Caption:=edit3.Text; //повторяем текст из поля edit3 в метке Label6
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit3: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit4: TEdit;
Label9: TLabel;
Edit5: TEdit;
Edit6: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
u,r:integer;
a,b,x,y:real;
const
d=55;
z=32.035;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Caption:='Результат'; //изменим надпись на кнопке button1
u:=32 div 5+6;
r:=27-10 mod 4;
{Ввод x, y из полей edit1 и edit2}
x:=strtofloat (edit1.text);
y:=strtofloat (edit2.text);
{вывод на edit4 текстов из edit1.text и edit2.text с комментарием}
edit4.text:='x='+edit1.text + ' и y='+ edit2.text;
{ Вывод в Edit и в Label текста и числа 2-мя способами}
Label7.Caption:='Константа целого типа: '+ 'd='+IntToStr(d); // 1-й способ добавления
//целого числа d к тексту
Label8.Caption:='Константа целого типа: '+ format('d=%2d', [d]); // 2-й способ добавления
//целого числа d к тексту
edit5.text:='Константа целого типа: '+ 'd='+IntToStr(d); // 1-й способ добавления
//целого числа d к тексту
edit6.text :='Константа целого типа: '+ format('d=%2d', [d]); // 2-й способ добавления
//целого числа d к тексту
{----------------------------------------------------------}
a:=r+sqrt(2*d)/abs(z/(u+r)-y*x);
b:=(r*x+2)/(u+d)/(z*y)-a;
{вывод чисел в поле Edit }
edit1.Text:= format('a=%6.3f', [a]);// вывод числа в поле Edit с плавающей точкой
edit2.Text:= format('b=%6.3e', [b]);// вывод числа в поле Edit с фиксированной точкой:
{Вывод на метку, 1-й способ: через format}
label3.Caption:=format('с плавающей точкой: a=%6.3e', [a])+#13+
format('с фиксированной точкой: a=%6.3f', [a])+#13;
label4.Caption:=format('с плавающей точкой: b=%6.3e', [b])+#13+
format('с фиксированной точкой: b=%6.3f', [b])+#13;
{Вывод на метку, 2-й способ: без format}
label5.Caption:='u='+inttostr(u) +#13+'r='+inttostr(r)+#13+
'd='+inttostr(d)+#13+'z='+ floattostr(z);
Label6.Caption:=edit3.Text; //повторяем текст из поля edit3 в метке Label6
end;
end.
Соседние файлы в папке Пример Edit Label форматный вывод