字符串的拼接问题(100分)

G

genesis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #1

我定义了一个字符串长度为80个字符，全部用空格填充。我从第1个到40个字符串用'ABCDEF'填充，
从第41个到80个用'CDEF' 填充，最后显示出现的效果应当为'ABCDEF CDEF '
没有填充到的全部还是用空格，但要保证80个字符的长度，怎么解决，有什么函数吗？

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
str:string[80];
i:byte;
begin
str:='';
for i:=1 to 80 do
if i<7 then
str:=str+chr(64+i)
else if (i>40) and (i<45) then
str:=str+chr(64-38+i)
else
str:=str+' ';
showmessage(str);
end;

 

T

ttdlh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #3

你可以用两个指针分别指向80个字符的字符串和'ABCDEF'、'CDEF'，当'ABCDEF'已经读完后
指针指向'CDEF'，而第一个指针判断是否指到41位，如果没有则补空格，如果有就开始读'CDEF'，
读完后再判断是否到80位，如果没有则补空格，如果有则结束。

 

G

genesis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #4

linsb:
你说的方法的确是不错，我只是在前面40位中加入字符是不知道长度的，内容也不知道，如果超过
40位也只能在这范围中。后面40位字符也是如此，你能不能再写一个给我，字符你自己定，谢谢。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #5

把其中的有关数字改为变量即可变为函数了，

 

G

genesis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #6

我试一试，我先把分给你加上，等有问题再问你，好吗？如果你方便的话，你把你的EMAIL发到genesis@163.net
我不会问你其它问题，只是这个问题而已。

 

G

genesis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #7

如果方便的话，你最好写个函数给我。

 

L

lldhz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #8

晕，算了。。。。。。。。