Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];

Вниз

Как корректно переконвертировать PWideChar в WideString?   Найти похожие ветки 

 
Dr. Andrew   (2007-07-11 17:12) [0]

Как корректно переконвертировать PWideChar в WideString? Есть такая функция наподобие PWideCharToWideString? Спасибо всем за ответ!


 
Reindeer Moss Eater ©   (2007-07-11 17:13) [1]

PWideChar в ансистроку, а она уже совместима по присваиванию c widestring


 
Dr. Andrew   (2007-07-11 17:20) [2]

А можно более конкретнее привести пример? или функцию? Спасибо!


 
Однокамушкин   (2007-07-11 17:22) [3]

А зачем вам функция? Просто присваиваете WideString-овой переменной значение типа PWideChar, и умный компиялтор всё сделает...


 
Dr. Andrew   (2007-07-11 17:26) [4]

но при этом подобная конструкция if WidePos(#32, pw) = 0 then находит пробел, которого в действительности нет, напрмиер в строке "строка№1". Как правильно все же сделать запись?


 
MetalFan ©   (2007-07-11 18:45) [5]

а разве простое присвоение не пройдет?
и зачем тут чтото конвернтировать???


 
Однокамушкин   (2007-07-11 18:58) [6]

Проверил на таком коде:

procedure TForm1.Button1Click(Sender: TObject);
var
 P: PWideChar;
 S: WideString;
begin
 S := "Строка№1";
 P := SysAllocString(PWideChar(S));
 Button1.Caption := IntToStr(WidePos(#32, P));
 SysFreeString(P);
end;


Работает правильно, пробелов не находит... подозреваю, что у вас в pw ещё какой-то хвост есть из-за отсутствия нулевого терминатора в конце...



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.04 c
2-1184315826
UMU
2007-07-13 12:37
2007.08.12
MainMenu


4-1172489276
MEV
2007-02-26 14:27
2007.08.12
дамп памяти процесса


2-1184413664
ououoy
2007-07-14 15:47
2007.08.12
вопрос про константы


2-1184743005
Grademax
2007-07-18 11:16
2007.08.12
Как узнать окно какой программы активно в данный момент?


15-1184446989
Kostafey
2007-07-15 01:03
2007.08.12
С днем рождения ! 15 июля





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский