No Delphi 6 em diante temos o QuoteString para nos ajudar em String dentro de SELECTs e outros, abaixo segue minha função para ser utilizada quando em versões do Delphi que não tenham o QuoteString
function dString(sValue: String):String; begin if not(sValue = '') then Result := ''''+sValue+'''' else begin Application.ShowException(Exception.Create('A String não pode ser vazia !')); Abort; end; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(dString(Edit1.Text)); // Em uma SELECT ficaria // Sql := Query.SQL.Add('SELECT * FROM TABELA WHERE CAMPOString = '+dString(Edit1.TExt)); end; end. * Fica a cada um fazer as mudanças que precisar... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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