Frequentemente ao recuperar textos do banco de dados há quebras de linha dentro da String.
Para resolver este problema, foi criada uma função muito simples que retira as
quebras de linha de uma String.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | // É necessário estar declarado SysUtils na seção uses. // Em versões unicode declare System.SysUtils. function RetiraEnter(aText : string): string; begin { Retirando as quebras de linha em campos blob } Result := StringReplace(aText, #$D#$A, '', [rfReplaceAll]); { Retirando as quebras de linha em campos blob } Result := StringReplace(Result, #13#10, '', [rfReplaceAll]); end; // Exemplo de uso. procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := Qry.FieldByName('OBS').AsString; end; |
