Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 26.01.2012, 22:31
AlexSoft AlexSoft вне форума
Прохожий
 
Регистрация: 03.04.2010
Сообщения: 14
Репутация: 10
Сообщение Delphi 7 ругается на PChar, что с этим делать?

Delphi 7 ругается на PChar
пишет: Unsafe type 'PChar'
чем он так опасен?
Ответить с цитированием
  #2  
Старый 26.01.2012, 22:38
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Это не ошибка, а предупреждение о не верном присвоении String к PChar и наоборот. Можно запретить выдавать его: Project->Options...->Compiler Messages. Снять флажок с пункта Unsafe typecast.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
AlexSoft (26.01.2012)
  #3  
Старый 26.01.2012, 22:54
AlexSoft AlexSoft вне форума
Прохожий
 
Регистрация: 03.04.2010
Сообщения: 14
Репутация: 10
По умолчанию

Спасибо. Я снял галку с Unsafe type - больше не ругается )).
Как правильно присвоить String к PChar и наоборот?
Ответить с цитированием
  #4  
Старый 26.01.2012, 23:21
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Покажи, на что ругалось.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #5  
Старый 26.01.2012, 23:33
Аватар для ~TB~
~TB~ ~TB~ вне форума
Начинающий
 
Регистрация: 17.02.2006
Адрес: Казахстан
Сообщения: 172
Версия Delphi: XE
Репутация: 1500
По умолчанию

Цитата:
Как правильно присвоить String к PChar и наоборот?
PrimaryNeed:=PChar(myString);
myString:=string(PrimaryNeed);

Как-то так.
__________________
00110001 00101100 00110110 00110001 00111000 00110000 00110011 00110011 00111001 00111000 00111000 00110111 00110100 00111001 00111000 00111001 00110100 00111000 00110100 00111000 00110010 00110000 00110100 00110101 00111000 00110110 00111000 00110011 00110100 00110011 00110110 00110101 00110110
Ответить с цитированием
  #6  
Старый 27.01.2012, 00:07
AlexSoft AlexSoft вне форума
Прохожий
 
Регистрация: 03.04.2010
Сообщения: 14
Репутация: 10
По умолчанию

Цитата:
Сообщение от ~TB~
PrimaryNeed:=PChar(myString);
myString:=string(PrimaryNeed);

Как-то так.

на это delphi 7 ругается "Unsafe type 'PChar'"
Ответить с цитированием
  #7  
Старый 27.01.2012, 00:12
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Просили ведь, укажи какие типы и как присваиваешь.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #8  
Старый 27.01.2012, 09:58
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
var
  s: String;
  p: PChar;
begin
  s:='Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms';
  p:=PChar(s);
//  p:=@s[1];
  Edit1.Text:=p;
//  Edit1.Text:=StrPas(p);
end;

Код:
function StrPas(const Str: PChar): string;
begin
  Result := Str;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
AlexSoft (27.01.2012)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:59.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025