求 String 轉換至 PChar 的函數(50分)

J

jiichen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #1

之前有用過一個 Delphi 內建的函數，可將 string 轉換成 pchar

依稀記得函數用法為
function xxxxxx(const s:string)char;



ps: 不要使用 pchar(s) 的轉換方式！ 也不要自己寫的函數，雖然這動作很簡單，
但就是生氣自己的記憶力，沒辦法，花錢買回。

 

小

小李飞刀之lxh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #2

function StrPCopy(Destchar;const Source:string)Char;

 

J

jiichen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #3

to 小李飞刀之lxh: 我記得不是，用法沒這麼麻煩。

 

小

小李飞刀之lxh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #4

不麻烦吧？
将一string copy 到一pchar 变量中而已。

 

山

山泉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #5

s:string;
pchar(s)
ok

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #6

有什么函数吗？！好像只要
var s:string;
tchar;
begin
s:='sdfdsf';
t:=pchar(s);
end;

 

S

scorpions

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #7

function StrLCopy(Dest: PChar
const Source: PChar
MaxLen: Cardinal): PChar
assembler;
asm
PUSH EDI
PUSH ESI
PUSH EBX
MOV ESI,EAX
MOV EDI,EDX
MOV EBX,ECX
XOR AL,AL
TEST ECX,ECX
JZ @@1
REPNE SCASB
JNE @@1
INC ECX
@@1: SUB EBX,ECX
MOV EDI,ESI
MOV ESI,EDX
MOV EDX,EDI
MOV ECX,EBX
SHR ECX,2
REP MOVSD
MOV ECX,EBX
AND ECX,3
REP MOVSB
STOSB
MOV EAX,EDX
POP EBX
POP ESI
POP EDI
end;

function StrPCopy(Dest: PChar
const Source: string): PChar;
begin
Result := StrLCopy(Dest, PChar(Source), Length(Source));
end;

 

L

liusm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #8

pchar()

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #9

肯定是pchar()

 

D

DUDU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #10

function StrPas(const Str: PChar): string;
我是正确的

 

S

silicon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #11

为什么不PChar?真是自找麻烦

 

Y

yh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #12

不知大家在讨论什么？

 

J

jiichen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #13

嗯！看來沒人用過.....

 

H

htw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-10

• #14

直接用Pchar就行了

 

J

jiichen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-10

• #15

StrPCopy 有缺點～～今天在測試時發現的，當 string 內含有二進制
資料時，如 #00 ，那便會發生拷貝的錯誤，它只會複製 #00 之前的資料，
就算使用 StrPLCopy 指定長度也一樣。

 

G

GBlueMan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-10

• #16

为什么不用 Pchar(str) 呢？

 

W

wrf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #17

为什么不自己写一个函数呢

 

三

三代坦克

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #18

>>當 string 內含有二進制資料時

string 内怎么会又二进制资料?那就不是string了.
string的定义应该是可显示的7位ascii字符,使用时要注意.

 

J

jiichen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-14

• #19

to 三代坦克:
底下是 Delphi HELP，說明了它是 8-bit 的字元。
--------------------------------------------------------------
A string represents a sequence of characters. Object Pascal supports the following predefined string types.

Type Maximum length Memory required Used for
ShortString 255 characters 2 to 256 bytes backward compatibility
AnsiString ~2^31 characters 4 bytes to 2GB 8-bit (ANSI) characters
WideString ~2^30 characters 4 bytes to 2GB Unicode characters

COM servers and interfaces
---------------------------------------------------------------

 

H

honestman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #20

function StrPCopy(Dest: PChar
const Source: string): PChar;
function StrMove(Dest: PChar
const Source: PChar
Count: Cardinal): PChar;
function StrCopy(Dest: PChar
const Source: PChar): PChar;
function StrLCopy(Dest: PChar
const Source: PChar
MaxLen: Cardinal): PChar;