AnsiExtractQotedStr

QuotedStr関数の存在は、知ってたけど、AnsiExtrctQuotedStrの存在は知らなかった。(^^ゞ
ってことで、使ってみた。
以下ソース

view plainprint?

1. program Project1;  
2.   
3. {$APPTYPE CONSOLE}  
4.   
5. {$R *.res}  
6.   
7. uses  
8.   System.SysUtils;  
9.   
10. var  
11.   s :String;  
12.   src : PWideChar;  
13. begin  
14.   try  
15.     { TODO -oUser -cConsole メイン : ここにコードを記述してください }  
16.     s := 'ミリアリア';  
17.     Writeln(s);  
18.     s := QuotedStr(s);  
19.     Writeln(s);  
20.     src := PwideChar(s);  
21.     s := AnsiExtractQuotedStr(src,'''');  
22.     Writeln(s);  
23.   
24.     readln;  
25.   
26.   except  
27.     on E: Exception do  
28.       Writeln(E.ClassName, ': ', E.Message);  
29.   end;  
30. end.  

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  s :String;
  src : PWideChar;
begin
  try
    { TODO -oUser -cConsole メイン : ここにコードを記述してください }
    s := 'ミリアリア';
    Writeln(s);
    s := QuotedStr(s);
    Writeln(s);
    src := PwideChar(s);
    s := AnsiExtractQuotedStr(src,'''');
    Writeln(s);

    readln;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

AnsiExtractQuitedStr内のsrcのとこで、直接キャストしようとすると コンパイルエラーが出るので、一度変数受けでキャスト。
で実行結果は、