Desculpa não escrevi o que fiz.
No meu SQL criei um campo calculado
No evento CalcFields da minha Query coloquei o código que ficou assim;
procedure TFichaIndivSobrenm.SQL_FICHAINDIVCalcFields(DataSet: TDataSet);
Var
Nome, Sobrenome, Nome2, NomeSobrenome : String;
Sobra : Integer;
Begin
sobra := 0;
Nome := Trim(SQL_FICHAINDIV.FieldByName('NMCIVIL').AsString);
Sobrenome := Trim(SQL_FICHAINDIV.FieldByName('SOBRENOME').AsString);
Sobra := Length(Nome) - Length(Sobrenome);
//Nome2 := Não entendi esse cara
NomeSobrenome := Sobrenome + ', '+Copy(Nome, 1, 8);
SQL_FICHAINDIV.FIELDBYNAME('SOBRENM').ASSTRING := NomeSobrenome;
end;
Gerando relatório
Nome da pessoa: Benedita Lourdes de Andrade
Sobrenome: ANDRADE
Está saindo assim: ANDRADE, Benedita L
Faltou : ourdes de
Como deve sair: ANDRADE, Benedita Lourdes de
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
