|
Платные хостинги
Раскрутка сайта
Книги по программированию
Несовместимость..., String and PWideChar
- Код uses ComObj, ShlObj; procedure ChangeActiveWallpaper; const CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}'; var ActiveDesktop: IActiveDesktop; begin ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop; ActiveDesktop.SetWallpaper([color=red]s[/color], 0); ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE); end; S:stringS:=('c:\windows\forest.jpg')highlightSyntax('delphiTEzNjl','delphi');Несовместимость... Это сообщение отредактировал Girder - 14.5.2005, 22:53
- Где? Вот ошибку вижу : Код S:stringS:=('c:\windows\forest.jpg')highlightSyntax('delphiYmYxMD','delphi'); Это откуда там взялось?1) Чего оно там?2) Где var, раз ты объявляешь переменную?3) Где bigin раз те присваиваешь ей значение?А по теме: если нужно перевести String в PWideChar (с PAnsiChar или PChar так же), то делай такКод vara: string;b: PWideChar;beginb:= PWideChar(a);end;highlightSyntax('delphiMmQxMD','delphi');
- Можно просто PChar(a);
- Неа, нельзя!!! Так можно было бы, если нужно перевести string в PAnsiChar, а в WideChar нельзя! Т.е. при таком раскладе: Код vara: string;b: PWideChar;beginb:= PChar(a);end;highlightSyntax('delphiYzY3ND','delphi');Ошбка: Несовместимые типы Char и WideChar.Так что нужно именно PWideChar(a);
- [offtop]Ой, попутал, совсем заработлся[/offtop]Respect
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
