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
=)

не парьтесь
var A:PAnsiChar; ................ A:=PAnsiCHar(edit1.Text);

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