TForm1.FormActivate (Sender: TObject);. Font.Color:=clGreen; Label2.Font.Color:=clGreen;. Font.Color:=clGreen; Label4.Font.Color:=clGreen;. Caption:=«00:00»; Label2.Caption:=«no file ...»;. Caption:=«00:00»; LabeL4.Caption:=«00:00»;. Filter:=«Mp3 files (*. Mp3) | *. MP3»;; TForm1.Button1Click (Sender: TObject); leng, posit, remain: longint; OpenDialog1 . Execute=true Then.FileName:=OpenDialog1.FileName;. Open;// Відкриваємо файл.Font.Color:=clRed;// Включаємо індікатор.Font.Color:=clGreen;. Font.Color:=clRed;. Font.Color:=clRed;:=MediaPlayer1.Length;:=MediaPlayer1.Position;:=leng - posit;. Caption:= MediaPlayer1.FileName;. Caption:=MusicToStr (posit);. Caption:=MusicToStr (leng);. Caption:=MusicToStr (remain);. Enabled:=True;;; TForm1.Button3Click (Sender: TObject); mpCanPlay in MediaPlayer1.Capabilities Then MediaPlayer1.Play;; TForm1.Button4Click (Sender: TObject); mpCanPlay in MediaPlayer1.Capabilities Then.Stop;. Position:=0;;; TForm1.Button6Click (Sender: TObject); mpCanPlay in MediaPlayer1.Capabilities Then MediaPlayer1.Pause;; TForm1.Button5Click (Sender: TObject); mpCanPlay in MediaPlayer1.Capabilities Then (MediaPlayer1.Position +10000) <= MediaPlayer1.Length Then.Position:=MediaPlayer1.Position + 10000.Position:=MediaPlayer1.Length ;. Play;;; TForm1.Button2Click (Sender: TObject); mpCanPlay in MediaPlayer1.Capabilities ThenMediaPlayer1.Position>=10000 then.Position:=MediaPlayer1.Position - 10000.Position:=0;. Play;;; TForm1.MusicToStr (n: longint): string;: string; , Sec: Longint;:=trunc (n/1000);:=trunc (sec/60);:=sec - min * 60;:=IntToStr (min); sec <10 Then:=s + «: 0» ; + IntToStr (sec):=s + «:» + IntToStr (sec);:=s;; TForm1.Timer1Timer (Sender: TObject); leng, posit, remain: longint;:=MediaPlayer1.Length;:=MediaPlayer1.Position;:=leng - posit;. Caption:= MusicToStr (posit);. Caption:=MediaPlayer1.FileName;. Caption:=MusicToStr (leng);. Caption:=MusicToStr (remain);;
end.
Створити додаток для побудови графіка функції F (x)=2sinx * ex / 5.
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,;=class (TForm) (Sender: TObject); (Sender: TObject); (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;
{$ R *.dfm}f(x:real):real;:=2*sin(x)*exp(x/5);;groffunc;,x2:real;,y2:real;:real;:real;:real;,b:integer;,h:integer;,my:real;,y0:integer ;:=10;:=form1.ClientHeight - 20;:=form1.ClientHeight - 40;:=form1.Clientwidth - 40;:=0;:=25;:=0.01;:=f (x1);:= f (x1);:=x1;:=f (x); y y2 then y2:=y;:=x + dx; (x>=x2);:=h/abs (y2-y1);:=w / abs (x2-x1);:=l;:=b-abs (round (y1 * my)); form1.Canvas do(l,b);lineto(l,b-h);(x0,y0);lineto(x0+w,y0);(l+5,b-h,floattostrf(y2,ffgeneral,6,3));(l+5,b,floattostrf(y1,ffgeneral,6,3));:=x1;:=f(x);[x0+round(x*mx),y0-round(y*my)]:=clred;:=x+dx;(x>=x2);;;TForm1.FormPaint(Sender: TObject);;; TForm1.FormResize (Sender: TObject);. Canvas.FillRect (rect (0,0, clientwidth, clientheight));
groffunc;;
Скласти додаток «Довідник міст»
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, ADODB, Menus, StdCtrls, ExtCtrls;=class (TForm): TDBGrid;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMe...
