Olá Franscisco, Consegui sim, mas ninguém me ajudou no grupo, fiz na raça. Segue o código: function Tdata.RemoveQuebraLinha(sString: string): string; var i: Integer; s: String; begin // #13#10 for i:=1 to Length(sString) do begin if (Copy(sString, i, 1) = chr(13)) or (Copy(sString, i, 1) = chr(10)) then s:=s + ' ' else s:=s + Copy(sString, i, 1); end; Result:=s; end; Espero ter ajudado, Levi
_____ De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 3 de janeiro de 2006 02:56 Para: [EMAIL PROTECTED] Assunto: [delphi-br] ajuda = Remover quebra de linha em campo memo Olá Levi, Ví sua mensagem em um fórum a respeito de como "remover a quebra de linha de um texto". Você conseguiu ?? Se tiver conseguido, peço que por favor, se possível, me informe como vc fez. Já estou há quase uma semana, tentando e nada. Se puder me ajudar, ficarei muito grato. Um forte abraço, Francisco [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] 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