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

Вниз

StringToWideChar   Найти похожие ветки 

← →
gyry   (2004-06-04 00:07) [0]

Покажите пример как перевести строку с типа PWideChar
в тип Strings с помощью команды StringToWideChar.

---

← →
rrew   (2004-06-04 00:11) [1]

function OleStrToString(Source: PWideChar): string;

почаще нажимай F1!!! :)

---

← →
rrew   (2004-06-04 00:19) [2]

сорри, не дочитал

---

← →
gyry   (2004-06-04 00:19) [3]

Извиняюсь я неправильно задал вопрос.
Надо наоборот Strings -> PWideChar.

---

← →
Игорь Шевченко ©   (2004-06-04 00:27) [4]

procedure TFSDDirectoryHelper.Open(const DeviceName: string);
var
 NameBuffer: array[0..255] of WideChar;
 InternalDeviceName: string;
 Status: NTSTATUS;
begin
 if FHandle <> INVALID_HANDLE_VALUE then
   Close;
 InternalDeviceName := Format("\Device\%s\", [DeviceName]);
 Status := InternalOpen(StringToWideChar(InternalDeviceName,
   NameBuffer, SizeOf(NameBuffer)), FILE_READ_ATTRIBUTES or FILE_READ_EA);
 if not NT_SUCCESS(Status) then
   RaiseNtError(Status);
end;


---

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

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

Наверх

Память: 0.44 MB
Время: 0.033 c