• R/O
  • SSH
  • HTTPS

id3v2editorplus: コミット


コミットメタ情報

リビジョン45 (tree)
日時2019-12-07 06:38:14
作者derekwildstar

ログメッセージ

Ajuste para permitir a importação de uma letra em formato de texto plano com o intuito de posterior sincronização

変更サマリ

差分

--- trunk/V2/src/UClassesETipos.pas (revision 44)
+++ trunk/V2/src/UClassesETipos.pas (revision 45)
@@ -976,8 +976,17 @@
976976
977977 for var i: Word := 0 to Pred(Count) do
978978 begin
979- Verso.Tempo := Names[i].ToInteger;
980- Verso.Texto := ValueFromIndex[i];
979+ try
980+ // Das linhas abaixo a única que pode apresentar erros é a
981+ // primeira, no caso do carregamento de um arquivo que não possui
982+ // rótulos de texto, neste caso o bloco except lidará com isso,
983+ // carregando a linha e usando um rótulo de texto falso
984+ Verso.Tempo := Names[i].ToInteger;
985+ Verso.Texto := ValueFromIndex[i];
986+ except
987+ Verso.Tempo := i;
988+ Verso.Texto := Strings[i];
989+ end;
981990 SYLT.Versos.Add(Verso);
982991 end;
983992 finally
--- trunk/V2/src/UDAMOPrincipal.pas (revision 44)
+++ trunk/V2/src/UDAMOPrincipal.pas (revision 45)
@@ -726,7 +726,7 @@
726726 begin
727727 if OPDITXT.Execute and FSYLT.ImportarTexto(OPDITXT.FileName,(FSYLT.Count = 0) or (Application.MessageBox('Deseja adicionar uma nova letra? Se você responder "não", apenas o texto da letra atual será substituído','Nova letra?',MB_ICONQUESTION or MB_YESNO) = IDYES)) then
728728 begin
729- Application.MessageBox('Texto da letra importado com sucesso!','Importação concluída',MB_ICONINFORMATION);
729+ Application.MessageBox('Texto da letra importado com sucesso!'#13#10#13#10'Caso ele não possua rótulos de tempo será necessário realizar a sincronização manualmente na tela de edição e sincronização','Importação concluída',MB_ICONINFORMATION);
730730 DefinirStatusDeModificado(cId3v2);
731731 end;
732732 end;
旧リポジトリブラウザで表示