delphi 谁帮我翻译成bcb ( 积分: 100 )

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-16

• #1

procedure Prepare(var s: PChar);
var
p: Integer;
begin
p:=Pos(#13#10, s);
while p>0 do
begin
Inc(s, p+1);
p:=Pos(#13#10, s)
end
end;

 

E

enterwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-16

• #2

//没有测试，不知道是不是这样
void Prepare( char* &s)
{
int p;
p=Pos(#13#10,s);
while(p>0)
{
Inc(s,p+1);
p=Pos(#13#10,s);
}
}

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-16

• #3

enterwin, 你的翻译不对
p=Pos(#13#10,s)
这一句是完全错的
Inc(s,p+1);这一句也是完全错的

 

Y

yanmin110O3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-16

• #4

我操，这个世界没有天理了～～～～～ MD,老虎不发威,当我是病猫, 先骂人的倒有理了 我可是从来不主动得罪人的 谁要是欺负人,那就不客气了 明天把这个工具开个源,叫大家都来用用

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-11

• #5

接受答案了.