Вернуть указатель на строку из функции

@Gooman · Регистрация: 03.10.2010

Студворк — интернет-сервис помощи студентам

Есть на с++ у меня функция:

C++
1
2
3
4
5
6
7
8
9
10
11
char *PrToStr(DWORD priority)
{
   char *s;
   switch (priority) {
      case THREAD_PRIORITY_IDLE   : s = strdup("THREAD_PRIORITY_IDLE");   break;
      case THREAD_PRIORITY_NORMAL : s = strdup("THREAD_PRIORITY_NORMAL"); break;
      case THREAD_PRIORITY_HIGHEST: s = strdup("THREAD_PRIORITY_HIGHEST");break;
      default: s = strdup("");
   }
   return s;
}

А вот как ее сделать на паскале - не знаю. Кто-то может помочь?

19.10.2012, 15:35

Delphi
1
2
3
4
5
6
7
8
9
function PrToStr(priority : DWORD) : Srting;
begin
  Result := '';
  case priority of
    THREAD_PRIORITY_IDLE   : Result := 'THREAD_PRIORITY_IDLE';
    THREAD_PRIORITY_NORMAL : Result := 'THREAD_PRIORITY_NORMAL';
    THREAD_PRIORITY_HIGHEST: Result := 'THREAD_PRIORITY_HIGHEST';
  end;
end;

Правда я возвращаю саму строку, а не указатель на неё. Зачем нужен указатель в данном случае, непонятно.

@Gooman · 19.10.2012, 15:44 **[ТС]**

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

Delphi
1
2
3
4
5
6
7
8
9
function PrToStr(priority : DWORD) : Srting;
begin
  Result := '';
  case priority of
    THREAD_PRIORITY_IDLE   : Result := 'THREAD_PRIORITY_IDLE';
    THREAD_PRIORITY_NORMAL : Result := 'THREAD_PRIORITY_NORMAL';
    THREAD_PRIORITY_HIGHEST: Result := 'THREAD_PRIORITY_HIGHEST';
  end;
end;

Правда я возвращаю саму строку, а не указатель на неё. Зачем нужен указатель в данном случае, непонятно.

Потому что с char работает, а не со string. А result как мне связать с функцией? PrToStr := Result?

Внутри case выдает ошибку "Constant expression violates subrange bounds". Разобрался. Дело в том, что в delphi DWORD заменяется на Integer.

19.10.2012, 16:11

Тогда так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
type
  TPlayPriority = (Idle, Lowest, BelowNormal, Normal, AboveNormal, Highest, TimeCritical);
 
var
  Priority : TPlayPriority;
 
function PrToStr(Priority : TPlayPriority) : Srting;
begin
  Result := '';
  case priority of
    Idle    : Result := 'THREAD_PRIORITY_IDLE';
    Normal  : Result := 'THREAD_PRIORITY_NORMAL';
    Highest : Result := 'THREAD_PRIORITY_HIGHEST';
  end;
end;
 
procedure BlaBla;
var
  St : String;
  Priority : TPlayPriority;
begin
  Priority := Idle;
  St := PrToStr(Priority);
end;

@volvo · 19.10.2012, 16:17

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type
  TPlayPriority = (Idle, Lowest, BelowNormal, Normal, AboveNormal, Highest, TimeCritical);
const
  sPriority : array[TPlayPriority] of String = (
    'THREAD_PRIORITY_IDLE', '', '', 'THREAD_PRIORITY_NORMAL', '', 'THREAD_PRIORITY_HIGHEST', ''
  );
 
var
  Priority : TPlayPriority;
 
procedure BlaBla;
var
  St : String;
  Priority : TPlayPriority;
begin
  Priority := Idle;
  St := sPriority[Priority];
end;

Промежуточные функции не нужны.

Не по теме:

P.S. Когда уже Дельфи научится именованным параметрам при описании константы - непонятно. С этой фичей было бы гораздо красивее.

19.10.2012, 16:22

ТС просил присвоить куда-нибудь результат функции, а про константы я чего то не подумал.

@Gooman · 19.10.2012, 16:50 **[ТС]**

Я сделал, как я написал, т.е. PrToStr := Result. Все работает.

Pascal
1
2
3
4
5
6
7
8
9
10
function PrToStr(priority : Integer) : String;
begin
  Result := '';
  case priority of
    THREAD_PRIORITY_IDLE   : Result := 'THREAD_PRIORITY_IDLE';
    THREAD_PRIORITY_NORMAL : Result := 'THREAD_PRIORITY_NORMAL';
    THREAD_PRIORITY_HIGHEST: Result := 'THREAD_PRIORITY_HIGHEST';
  end;
  PrToStr := Result;
end;

19.10.2012, 16:53

Чего-чего? Result это уже возврат значения.

Delphi
1
PrToStr := Result;

Эту строку выкинь и никогда больше так не делай. Тем более, UI предложил более компактный вариант.

@Gooman · 19.10.2012, 17:04 **[ТС]**

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

Чего-чего? Result это уже возврат значения.

Delphi
1
PrToStr := Result;

Эту строку выкинь и никогда больше так не делай. Тем более, UI предложил более компактный вариант.

Какая разница, что там делается на паскале. Я не пишу на этом языке программирования.

@volvo · 19.10.2012, 17:08

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

Я не пишу на этом языке программирования.

На данный момент ты как раз на нем и пишешь. Вот и делай так, как положено делать на Дельфи, а не так, как захотела твоя левая пятка.

19.10.2012, 17:08

Что то я не понял, о чём было сказано.
Вам показали 3! варианта решения проблемы, зачем добавлять бесполезную строку? По сути у вас получилось: 2 = 2, хотя это и так всем ясно.

@Gooman · 19.10.2012, 17:11 **[ТС]**

Я в обычном паскале всегда так писал. Что есть в делфи, я не знаю. Использую делфи один единственный раз по принуждению.

19.10.2012, 17:39

В таком случае замените везде Result на локальную переменную, к примеру, St и верните её (PrToStr := St). Переменная St типа String.

@Gooman · 19.10.2012, 21:29 **[ТС]**

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

В таком случае замените везде Result на локальную переменную, к примеру, St и верните её (PrToStr := St). Переменная St типа String.

Раз Result в Delphi - результат функции, то я убрал строчку, которую сам добавил, и все.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

angstrom
	19.10.2012, 16:22
	ТС просил присвоить куда-нибудь результат функции, а про константы я чего то не подумал.

angstrom
	19.10.2012, 17:08
	Что то я не понял, о чём было сказано. Вам показали 3! варианта решения проблемы, зачем добавлять бесполезную строку? По сути у вас получилось: 2 = 2, хотя это и так всем ясно.

@Gooman 10 / 10 / 4 Регистрация: 03.10.2010 Сообщений: 350
	19.10.2012, 17:11 [ТС]
	Я в обычном паскале всегда так писал. Что есть в делфи, я не знаю. Использую делфи один единственный раз по принуждению. 0

angstrom
	19.10.2012, 17:39
	В таком случае замените везде Result на локальную переменную, к примеру, St и верните её (PrToStr := St). Переменная St типа String.