| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
String to PAnsiChar
klyg © (2004-12-11 10:10:00)Подскажите, пожалуйста, как перевести String в PAnsiChar
BURN (2004-12-12 01:54:00) [1]не парьтесь
var A:PAnsiChar;
................
A:=PAnsiCHar(edit1.Text);
Fay (2004-12-11 18:54:00) [2]2 VMcL © (11.12.04 18:48) [4]
Главное, чтобы работало 8)
VMcL (2004-12-11 18:48:00) [3]А я бы заменил все эти штуки на
P := StrNew(Pointer(SomeString))
и
StrDispose(P);
© VMcL
=)
Fay (2004-12-11 18:08:00) [4]я бы заменил
System.Move(StrValue[1], Result^, iTemp);
PByteArray(Result)[iTemp] := 0;
на
System.Move(PChar(StrValue)^, Result^, iTemp + 1);
Arm79 (2004-12-11 17:19:00) [5]function StringToPChar(const StrValue: AnsiString): PChar;
var
iTemp : Integer;
begin
iTemp := Length(StrValue);
Result:= AllocMem(iTemp+1);
System.Move(StrValue[1], Result^, iTemp);
PByteArray(Result)[iTemp] := 0;
end;
procedure FreeString(var pcTemp: PChar);
begin
FreeMem(pcTemp, StrLen(pcTemp)+1);
pcTemp := nil;
end;
(c) Palladin
TUser (2004-12-11 10:29:00) [6]PAnsiChar(String)
| |
