Question

一个Delphi字符串转换问题

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
wstr:widestring;
begin
str:=pchar(extractfilepath(application.ExeName)+'soundf\yeterdayoncemore.mp3');
//中间这句转换怎么写？
RealAudio1.Source :=wstr;//RealAudio1.Source要求返回的是wideString
end;
具体怎么写呀。我试验了一下：可出现[Fatal Error] Unit1.pas(8): File not found: 'apishell.dcu'。

Answer 1

直接用widestring型的变量接就行了
var
wstr:widestring;
begin
wstr:=extractfilepath(application.ExeName)+'soundf\yeterdayoncemore.mp3';
end;

Answer 2

MutiBytetoWidechar转换就可以啦