Please not that using this script will update the files!
So click Apply first and use this after.
It is ofcourse possible to automate the entire procces and do the apply/update/rename in one go.
Code: Select all
Program composer_to_Lyricist;
var
i, iCount: integer;
sComposer: string;
begin
iCount := on_getGrdRowCount;
if iCount = 0 then exit;
for i := 1 to iCount do begin
on_setGrdRow(i);
on_LoadFile;
sComposer := on_getGrdField( 'Composer' );
gTag.Lyricist := sComposer;
gTag.OrigLyricist := sComposer;
on_UpdateThis( false );
end;
on_setGrdRow(1);
end.