AnsiExtractQuotedStr 関数でうまくいかないです？

解決

武田 2005-04-15 21:39:38 No: 14333

通りすがらないＶ２さんに教えて頂いたダブルクオートの付け外しで
Label6.Caption := AnsiQuotedStr('abc defg', '"');でうまく”が付きます。これを戻すのにヘルプに
function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string;
とあるので、
s := Label6.Caption;
Label7.Caption := AnsiExtractQuotedStr( PChar(s + #0), '"'):など色々やってみるのですが、だめです。
毎度初歩的な質問ですみませんが、よそしくご指導をお願い致します。m(__)m

直 2005-04-15 21:48:07 No: 14334

下記ソースで動きました。

var
  S: String;
  pS: PChar;
begin
  S := '"TEST"';
  pS := PChar(S);
  Label1.Caption := AnsiExtractQuotedStr(pS, '"');
end;

deldel 2005-04-15 21:53:02 No: 14335

var
P: PChar;
begin
Label6.Caption := AnsiQuotedStr('abc defg', '"');

P := PChar(Label6.Caption);
Label7.Caption := AnsiExtractQuotedStr(P, '"');
end;

傍観者 2005-04-15 21:53:44 No: 14336

武田さんの使用されているDelphiにAnsiDequotedStr関数があれば、
Label7.Caption := AnsiDequotedStr(s, '"');

武田 2005-04-16 02:43:19 No: 14337

直さん、deldelさん、傍観者さん、早速ご指導ありがとうございました。
うまくいきました。
またよろしくお願い致します。m(__)m