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

Вниз

String to PAnsiChar   Найти похожие ветки 

← →
klyg   (2004-12-11 10:10) [0]

Подскажите, пожалуйста, как перевести String в PAnsiChar

---

← →
TUser ©   (2004-12-11 10:29) [1]

PAnsiChar(String)

---

← →
Arm79   (2004-12-11 17:19) [2]

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

---

← →
Fay ©   (2004-12-11 18:08) [3]

я бы заменил
System.Move(StrValue[1], Result^, iTemp);
PByteArray(Result)[iTemp] := 0;
на
System.Move(PChar(StrValue)^, Result^, iTemp + 1);

---

← →
VMcL ©   (2004-12-11 18:48) [4]

А я бы заменил все эти штуки на
P := StrNew(Pointer(SomeString))
и
StrDispose(P);

© VMcL
=)

---

← →
Fay ©   (2004-12-11 18:54) [5]

2 VMcL ©   (11.12.04 18:48) [4]
Главное, чтобы работало 8)

---

← →
BURN ©   (2004-12-12 01:54) [6]

не  парьтесь

var A:PAnsiChar;
................
A:=PAnsiCHar(edit1.Text);


---

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

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

Наверх

Память: 0.47 MB
Время: 0.027 c