------------------------------------------------
//при створенні форми створюємо початок таблицю
procedure TForm1.FormActivate (Sender: TObject);
//заповнюємо шапку.cells [0,0]:= Номер raquo ;;. cells [1,0]:= Адреса файлу raquo ;;. cells [2,0]:= Назва raquo ;;. cells [3,0]:= Артист raquo ;;. cells [4,0]:= Альбом raquo ;;. cells [5,0]:= Рік випуску raquo ;;. cells [6,0]:= Коментарі raquo ;;. ShowModal; .free ;;
//Кінець створення початок таблиці
//------------------------------------------------------------------------------
//-------------------------------------------------------------------------------
//Процедура на завантаження тегів в csv-файл із зазначеного mp3-файлу
procedure TForm1.Loadmp31Click (Sender: TObject) ;: integer; .SimpleText:= Завантажуємо mp3-файли ... raquo ;;. Button1.Font.Color:=clWindowText; .ShowModal; OKRightDlg.Button1.Font.Color=clScrollBar then:=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 ;;. cells [6, nomer]:= raquo ;;
nomer:=nomer + 1 ;;. RowCount:=2; (OKRightDlg.DirectoryOutline1.directory, *. mp3 raquo ;, tabl, true); (OKRightDlg.Edit1.Text lt; gt ; " ) and (length (OKRightDlg.Edit1.Text)=1) thensd1.execute then_db (sd1.filename, tabl, OKRightDlg.Edit1.Text) ;. SimpleText:= Були завантаженого mp3-файли з директорії + OKRightDlg.DirectoryOutline1.directory + . raquo ;;
end.SimpleText:= Обрано неправильний роздільник! Будь ласка, виберіть інший. Raquo ;;
end.SimpleText:= Завантаження mp3-файлів була скасована! raquo ;;
end;
//Кінець процедури на завантаження тегів в csv-файл із зазначеного mp3-файлу
//-------------------------------------------------------------------------------
//-------------------------------------------------------------------------------
//функція на пошук зазначеного символу у зазначеному рядку
function find_char (str: string): char ;, number: integer; (str, number); i:=1 to number doi lt; 4 then; (str [i]= ) and (str [i - 2]= ) then:=str [i - 1] ;;
end ;;;
//Кінець функції на пошук зазначеного символу у зазначеному рядку
//-------------------------------------------------------------------------------
//------------------------------------------------------------------------------
//процедура на завантаження csvTForm1.Loadcsv1Click (Sender: TObject); tag: tmp3tag;
OldMp3Tag: tmp3tag ;, position: integer;
rasdelitel: char; _str: string ;: textfile; .SimpleText:= Завантажуємо csv-файл ... raquo ;; od1.Execute then//якщо OpenDialog - виконаний без помилок
begin
//Дізнаємося який роздільник задіяний
AssignFile (f, od1.FileName);
{$ i -} (f);
{$ i +} (f, file_str);:=find_char (file_str);
closefile (f);
//Кінець впізнавання який роздільник задіяний
read_db (od1.FileName, rasdelitel, tabl); i:=1 to tabl.RowCount - 1 do//прохід по всіх рядках
mp3tag:=getmp3tag (tabl.Cells [1, i]);
OldMp3Tag.filename:=tabl.Cells [1, i]; Tag.title:=tabl.Cells [2, i]; Tag.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]) ;. SimpleText:= Загружен сsv-файла з адресою + od1.FileName + . raquo ;;. SimpleText:= Завантаження csv-файлу скасована! raquo ;;
end;
//кінець процедура на завершення програми
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
//процедура на завершення программиTForm1.Exit1Click (Sender: TObject) ;. Terminate;// закрити програму;
//кінець процедура на завершення програми
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
//Процедура, що показує про ...
