Помогите Ошибка Unterminated string!

[muravey]

Делаю по FAQu программку типа Сетевое окружение, немогу разобраться с этой ошибкой Unterminated string!(при компилировании) !! Помогите ! Заранее благодарен!!!!
if r <> NO_ERROR then
begin
AddShareString(TopContainerIndex, '<НЕ могу опросить ресурсы
(Ошибка #'+
IntToStr(r) + '>');
WNetCloseEnum(hEnum);
Exit;
end;

[puporev]

Скажите пожалуйста, а ваши загогулины исправить на русские буквы очень трудно?

[Stilet]

...Pchar( '<Íå ìîãó îïðîñèòü ðåñóðñû
(Îøèáêà #'+
IntToStr(r) + '>')...

Яснышко?

[muravey]

Сообщение от Stilet

...Pchar( '<Íå ìîãó îïðîñèòü ðåñóðñû
(Îøèáêà #'+
IntToStr(r) + '>')...

Яснышко?

НЕ понял я ничего.

[Stilet]

AddShareString(TopContainerIndex, Pchar('<НЕ могу опросить ресурсы
(Ошибка #'+
IntToStr(r) + '>'));

[muravey]

Сообщение от Stilet

AddShareString(TopContainerIndex, Pchar('<НЕ могу опросить ресурсы
(Ошибка #'+
IntToStr(r) + '>'));

Вставил Pchar , всё равно выдаёт ошибку unterminated string.

[Fainder]

Открывающихся скобок 4, закрывающихся всего 3. Это и не будет работать. Число взлётов должно быть равно числу посадок, например, так:

AddShareString(TopContainerIndex, Pchar('<НЕ могу опросить ресурсы
(Ошибка #'+
IntToStr(r) + '>')));

[muravey]

Сообщение от Fainder

Открывающихся скобок 4, закрывающихся всего 3. Это и не будет работать. Число взлётов должно быть равно числу посадок, например, так:

Дело не в скобках. ошибка Unterminated string при компилировании вылазит!и указывает на AddShareString.

[Stilet]

Так мне ясно кажется тебе нужно написать
AddShareString(TopContainerIndex, Pchar('<НЕ могу опросить ресурсы
(Ошибка #'+
IntToStr(r) + '>'));
в одну строку. Вот у тебя (Ошибка уже на другой строке, а ты ее перенеси на предидущую или так:

AddShareString(TopContainerIndex, Pchar('<НЕ могу опросить'+ 'ресурсы'+
'(Ошибка #'+
IntToStr(r) + '>'));

[muravey]

Сообщение от Stilet

Так мне ясно кажется тебе нужно написать
AddShareString(TopContainerIndex, Pchar('<НЕ могу опросить ресурсы
(Ошибка #'+
IntToStr(r) + '>'));
в одну строку. Вот у тебя (Ошибка уже на другой строке, а ты ее перенеси на предидущую или так:

AddShareString(TopContainerIndex, Pchar('<НЕ могу опросить'+ 'ресурсы'+
'(Ошибка #'+
IntToStr(r) + '>'));

Точно!!!!!!! Спасибо огоомное!!!!!!!
)))