Delphi中哪个函数可以向一个已初始化了的字符串中的指定位置写入任意长度字符？(10分)

Z

zcb999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #1

请问Delphi中哪个函数可以向一个[blue]已初始化了的字符串中的指定位置写入任意长度字符[/blue]？
比如：已将一个字符串初始化为连续10000个星号"*"，现在我想[red]直接把第501～508的星号
替换为'12345678'[/red],我要在一个大循环中要多次向该字符串中的不中部位写入固定长度的
不同的内容，如果用'+'号逐个连接将会很慢。如果不是替换而是插入呢？
在VB中用MID$可以实现这个功能，Delphi中呢？

 

南

南宫吹云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #2

delete(s,501,8);
insert(s,501,'12345678');

 

P

puyd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #3

帮你写个函数吧
procedure ReplaceStr(Var Str:string;subStr:string;start,Len:integer)
begin
Delete(Str,Start,Len);
Insert(subSTR,Str,Start);
end;

参数顺序：原字符串、替换串、替换位置、替换长度

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #4

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #5

在s 的 501 位 替换为 s2 ，速度最快的是
if 501+Length(s2) > Length(s) then
SetLength(501+Length(s2));
CopyMemory( PChar(s)+500,PChar(s2) ,Length(s2))

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #6

S1:='12345678';
Move((Pchar(@S1[1]))^,(Pchar(@S[501]))^,8);

 

Z

zcb999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #7

多人接受答案了。