программеTForm1.About1Click (Sender: TObject) ;. showmodal;
end;
end.
//кінець процедури, що показує про програму
//------------------------------------------------------------------------------
Модулі:
a) Aboutbox (опис програми):
unit Unit4; Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls ,, ExtCtrls, jpeg;=class (TForm): TPanel ;: TLabel ;: TLabel ;: TLabel ;: TLabel;:TButton ;: TImage;
{Private declarations}
{Public declarations} ;: TAboutBox;
{$ R * .dfm}.
б) TOKRightDlg (модуль для завдання директорії з mp3-файлами): Unit1; Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls ,, ExtCtrls, ComCtrls, ShellCtrls, Grids, Outline, DirOutln ;=class (TForm): TDirectoryOutline ;: TMemo ;: TLabel ;: TLabel ;: TButton; Memo1KeyPress (Sender: TObject; var Key: Char); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TOKRightDlg;
{$ R * .dfm} TOKRightDlg.Memo1KeyPress (Sender: TObject; var Key: Char) ;. drive:=Key ;; TOKRightDlg.Button1Click (Sender: TObject) ;. close ;;.
в) AboutBox1 (заставка): Unit5; Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls ,, ExtCtrls, jpeg;=class (TForm): TPanel ;: TButton ;: TTimer;:TImage ;: TLabel; Timer1Timer (Sender: TObject);
{Private declarations}
{Public declarations} ;: TAboutBox1; Unit4;
{$ R * .dfm} TAboutBox1.Timer1Timer (Sender: TObject) ;;;.
. Блок-схеми
1) Завантаження mp3:
. SimpleText:= Завантажуємо mp3-файли ... raquo ;;. Button1.Font.Color:=clWindowText; .ShowModal;:=1; tabl.Cells
[0, nomer] lt; gt; do.cells [0, nomer]:= raquo ;;
tabl.cells [1, nomer]:= raquo ;;. cells [2, nomer]:= raquo ;;. cells [3, nomer]:= ; .cells [4, nomer]:= raquo ;;. cells [5, nomer]:= raquo ;;
tabl.cells [6, nomer]:= raquo ;;:=nomer + 1; .RowCount:=2; .Button1.Font.=clScrollBar (OKRightDlg.DirectoryOutline1. statusbar1.SimpleText := Завантаження directory, mp3-файлів була скасована! raquo ;;
*. mp3 raquo ;, tabl, true);
(OKRightDlg.Edit1.Text lt; gt; " ) (length (OKRightDlg..Text)=1) 1.SimpleText:=Обрано неправильний
роздільник! Будь ласка, виберіть інший. ';
sd1.execute
write_db (sd1.filename, tabl, OKRightDlg.Edit1.Text) ;. SimpleText:= Були завантаженого mp3-файли з директорії + OKRightDlg.DirectoryOutline1.directory + . raquo ;;.
2) Завантаження csv:
Begin.
statusbar1.SimpleText:=
Завантажуємо csv-файл ... raquo ;;. Execute (f, od1.FileName); statusbar1.SimpleText:={$ i-} Reset (f); Завантаження csv-файлу скасована! raquo ;;
{$ i +} readln (f, file_str);:=find_char (file_str); (f); _ db (od1.FileName ,, tabl);:=1 to.RowCount - 1 doTag. filename:=tabl.Cells [1, i];
OldMp3Tag.title:=tabl.Cells [2, i];
OldMp3Tag.artist:=tabl.Cells [3, i]; Tag.album:=tabl.Cells [4, i]; Tag.year:=tabl.Cells [5, i;] Tagment:=tabl.Cells [6, i]; Tag (OldMp3Tag, tabl.Cells [1, i]).
