Single Quote in UNIDAC and SQL Server using Delphi

overvi · Post by **overvi** » Tue 22 Feb 2011 08:56

What is the best way to allow program to able to input single quote ?
Do i have to replace every single quote with double quote or is there other ( more automatic way ) ?

AndreyZ · Post by **AndreyZ** » Wed 23 Feb 2011 09:31

Hello,

To input single quote from the code you can only use the following code:

Code: Select all

  UniQuery.Edit;
  UniQuery.FieldByName('strfld').AsString := '''test''';
  UniQuery.Post;

Also you can easily input single quote using visual components.

overvi · Post by **overvi** » Wed 23 Feb 2011 13:29

Hello AndreyZ,

What do you mean by visual components ? if you mean it by using editbox, that's my problem. I want to input for example Sam's Restaurant.
so my editbox contain Sam's Restaurant.

so in my code it will look like this

Code: Select all

Uniquery.edit;
Uniquery.fieldbyname('strfld').asstring := '''+editbox1.text+''';
uniquery.post;

if i run code above, an error occured
I have to replace every single quote in editbox1.text with 2 single quote.
Is there an easier way ?

AndreyZ · Post by **AndreyZ** » Wed 23 Feb 2011 15:29

You can use the following code:

Code: Select all

UniQuery.Edit;
UniQuery.FieldByName('strfld').AsString := Edit1.Text; // Edit1.Text = Sam's Restaurant
UniQuery.Post;

Dido · Post by **Dido** » Thu 24 Feb 2011 22:14

overvi wrote:
Code: Select all
Uniquery.edit;
Uniquery.fieldbyname('strfld').asstring := '''+editbox1.text+''';
uniquery.post;
if i run code above, an error occured
I have to replace every single quote in editbox1.text with 2 single quote.
Is there an easier way ?

Use QuotedStr Delphi function:

Code: Select all

Uniquery.edit;
Uniquery.fieldbyname('strfld').asstring := QuotedStr(editbox1.text);
uniquery.post;