| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как перевести на Delphi следующую ;конструкцию:

Alexander ©   (2002-09-24 10:19:00) 


LPWSTR Datatypes[]={
L"str1",
L"str2",
0};


---

Alex4444444444   (2002-09-28 01:06:00) [1]


pMyDataTypes := @Datatypes;

while Assigned(pMyDataTypes) do begin
cbTotal := cpTotal + ...
Inc(pMyDataTypes);
end;

Not quite sure about the Inc(); it may be

Inc(pMyDataTypes, SizeOf(tMyDataTypes))


---

Alexander   (2002-09-27 14:02:00) [2]

Хм..., а как можно перевести вот Это?


LPWSTR *pMyDatatypes = Datatypes;
...
while (*pMyDatatypes) {
cbTotal += wcslen(*pMyDatatypes) * sizeof(WCHAR) + sizeof(WCHAR) + sizeof(DATATYPES_INFO_1);
pMyDatatypes++;}


---

MBo   (2002-09-24 12:48:00) [3]

Да, но там есть какие-то тонкости, о которых C-шники знают

---

Alexander   (2002-09-24 11:52:00) [4]

а LPTSTR это как я понял PChar?

---

MBo   (2002-09-24 10:31:00) [5]

Или
array[0..2] of WideString=("str1","str2","");

второе -
const ptabskey:PWideChar="TABS";

---

MBo   (2002-09-24 10:28:00) [6]

const
Datatypes:array[0..2] of PWidechar=("str1","str2",nil);

---

Alexander   (2002-09-24 10:27:00) [7]

а ешё как задать такую константу:

PWCHAR pTabsKey = L"TABS";


---

Наверх