Dividir Texto com Separação de Silabas
E ai pessoal! Tubo Bem?
Alguem conhece um componente ou unit que faça a divisao de uma string e faça corretamente a separacao das silabas?
Exempo:
Dividir a string ´DEUS NAO CHAMA OS MAIS CAPACITADOS, ELE CAPACITA OS CHAMADOS´ que pelo o que contei tem 60 caracteres em tres ou mais strings de ate 20 caracteres, se eu for dividir usando o comando copy fica assim:
1ª String: ´DEUS NAO CHAMA OS MA´
2ª String: ´IS CAPACITADOS ELE C´
3ª String: ´APACITA OS CHAMADOS´
o que eu quero é que fique assim ou semelhante:
1ª String: ´DEUS NAO CHAMA OS ´
2ª string: ´MAIS CAPACITADOS, ´
3ª string: ´ELE CAPACITA OS CHA-´
4ª string: ´MADOS´
Todas as linhas tem ate 20 caracters
Falow!!
Alguem conhece um componente ou unit que faça a divisao de uma string e faça corretamente a separacao das silabas?
Exempo:
Dividir a string ´DEUS NAO CHAMA OS MAIS CAPACITADOS, ELE CAPACITA OS CHAMADOS´ que pelo o que contei tem 60 caracteres em tres ou mais strings de ate 20 caracteres, se eu for dividir usando o comando copy fica assim:
1ª String: ´DEUS NAO CHAMA OS MA´
2ª String: ´IS CAPACITADOS ELE C´
3ª String: ´APACITA OS CHAMADOS´
o que eu quero é que fique assim ou semelhante:
1ª String: ´DEUS NAO CHAMA OS ´
2ª string: ´MAIS CAPACITADOS, ´
3ª string: ´ELE CAPACITA OS CHA-´
4ª string: ´MADOS´
Todas as linhas tem ate 20 caracters
Falow!!
Dorivansousa
Curtidas 0
Respostas
Vagner Monteiro
29/09/2005
Tente isto:
If Edit1.Text[20] <> ´ ´ Then
Label1.Caption := Copy(Edit1.Text,0,19) + ´-´
Else
Label1.Caption := Copy(Edit1.Text,0,20);
If Edit1.Text[20] <> ´ ´ Then
Label1.Caption := Copy(Edit1.Text,0,19) + ´-´
Else
Label1.Caption := Copy(Edit1.Text,0,20);
GOSTEI 0
Dorivansousa
29/09/2005
dessa forma q vc passou eu vou dividir as palavras de forma errada... por q tem as regras de separacao silabica, eu nao posso dividir o nome ACAILANDIA assim:
AC-AILANDIA, tem q verificar q a forma correta seria A-CAILANDIA
AC-AILANDIA, tem q verificar q a forma correta seria A-CAILANDIA
GOSTEI 0
Motta
29/09/2005
Tente quebrar as palavras inteiras fica mais simples.
Acho que já post semelhante aqui, deu uma pesquisada.
Acho que já post semelhante aqui, deu uma pesquisada.
GOSTEI 0