Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

Преобразование   Найти похожие ветки 

 
Veace$lav ©   (2004-01-10 16:48) [0]

Как преобразовать "String" and "PAnsiChar"
Дельфя выдаёт -[Error] Unit1.pas(71): Incompatible types: "String" and "PAnsiChar"


 
Burmistroff   (2004-01-10 16:53) [1]

s: string
p: pchar;

p:=pchar(s);
можно и экзотически: p:=@s[1];


 
YuRock ©   (2004-01-10 19:14) [2]

Надо делать так (если хотите, чтоб работало):


...
begin
 p := StrAlloc(Length(s) + 1);
 StrPCopy(p, s);
 
 // Потом нужно обязательно:
 StrDispose(p);
end;
...


 
VMcL ©   (2004-01-11 04:11) [3]

>>Veace$lav ©  (10.01.04 16:48)

Итоги подведем:

Если требуемый PChar - только для чтения, тогда Burmistroff  (10.01.04 16:53) [1].
Если же в него может понадобиться что-нибудь записать, то или YuRock ©  (10.01.04 19:14) [2] или вот так:

var
 S: String;
// ...
SetLength(S, MaxLengthThatCanBeUsedInFunction);
Func(..., PChar(S), ...);
SetLength(S, StrLen(S));


 
VMcL ©   (2004-01-11 04:13) [4]

Ой, sorry, глюканул.

var
S: String;
// ...
SetLength(S, MaxLengthThatCanBeUsedInFunction);
Func(..., PChar(S), ...);
SetLength(S, StrLen(PChar(S)));


 
Veace$lav ©   (2004-01-11 13:06) [5]

Всем Спасибо!!!



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

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
1-1078739352
csr
2004-03-08 12:49
2004.03.28
Вопрос по TActionToolBar и TActionMainMenuBar из delphi 7!


3-1077165271
Evgen77
2004-02-19 07:34
2004.03.28
Разветвленные базы данных


1-1078394428
BlackTiger
2004-03-04 13:00
2004.03.28
Подозрительная конструкция какая-то. (record + TStrings)


14-1078234981
Lena19
2004-03-02 16:43
2004.03.28
LG7020 +ASUS a620 = GPRS ??????


1-1078641467
able
2004-03-07 09:37
2004.03.28
HTML - редактор