字符串转换 能否把 K01,K02,K03,K04 转换成 'K01','K02','K03','K04'(100)

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-06

• #1

字符串转换 能否把字符串 K01,K02,K03,K04 转换成 'K01','K02','K03','K04'

 

W

weichao9999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-06

• #2

var s:string;begin s:='K01'; s:=''''+s+'''';end;不知道是不是这个意思

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-06

• #3

quotedstr

 

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-06

• #4

quotedstr 出来的是 "K01,K02,K03,K04 " 不符合

 

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-06

• #5

字符串转换 能否把字符串 S=K01,K02,K03,K04 转换成 S='K01','K02','K03','K04'

 

L

liuls

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-06

• #6

function QuotedStr2(AStr: string): string;var iPos: Integer; TmpStr: string;begin iPos := Pos(',', AStr); if iPos = 0 then Result := AStr else begin while iPos > 0 do begin TmpStr := Copy(AStr, 1, iPos -1); Delete(AStr, 1, iPos); if Result <> '' then Result := Result + ','; Result := Result + QuotedStr(TmpStr); iPos := Pos(',', AStr); end; if AStr <> '' then Result := Result + ',' + QuotedStr(AStr); end;end;

 

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-06

• #7

通过

 

狼

狼崖山

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-06

• #8

var iPos: Integer; TmpStr: string;begin iPos := Pos(',', AStr); if iPos = 0 then Result :=''''+ AStr+'''' else begin while iPos > 0 do begin TmpStr := Copy(AStr, 1, iPos -1); Delete(AStr, 1, iPos); if Result <> '' then Result := Result + ','; Result := Result + QuotedStr(TmpStr); iPos := Pos(',', AStr); end; if AStr <> '' then Result := Result + ',' + QuotedStr(AStr); end;end;