如何在delphi6的字符串中加入'号

Question

procedure TForm1.Button4Click(Sender: TObject);
 var
   s:string;
 begin
   s:=' ''';
   showmessage(s);
 end;
procedure TForm1.Button4Click(Sender: TObject);
 var
   s:string;
 begin
   s:=format('%4s',[' ''']);
   showmessage(s);
 end;

Answer 1

procedure TForm1.Button4Click(Sender: TObject);
 var
   s:string;
 begin
   s:='''Hello''';
   showmessage(s);
 end;

Answer 2

var str,s1 : string ;
str:=''';
s1:=str +'hello'+str;如果是动态的sql语句
则sqlstr:='select * from table where name='+''''+str+'''';

Answer 3

不是啊，我要的是实现s1= 's2',s2为字符串变量

Answer 4

procedure TForm1.Button4Click(Sender: TObject);
  var
   s1,s2:string;
 begin
   s2:='hello';
   s1:=''''+s2+'''';
   showmessage(s1);
 end;

Answer 5

s1:=#39+s2+#39;//39为'的ASSIC码