リビジョン | 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
@@ -976,8 +976,17 @@ | ||
976 | 976 | |
977 | 977 | for var i: Word := 0 to Pred(Count) do |
978 | 978 | 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; | |
981 | 990 | SYLT.Versos.Add(Verso); |
982 | 991 | end; |
983 | 992 | finally |
@@ -726,7 +726,7 @@ | ||
726 | 726 | begin |
727 | 727 | 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 |
728 | 728 | 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); | |
730 | 730 | DefinirStatusDeModificado(cId3v2); |
731 | 731 | end; |
732 | 732 | end; |