关于固定长度的string问题(100分)

I

ice_cream

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #1

现在有一些不定长度的字符，比如‘1’‘10’，‘100’
我想把它们组合成一个字符串，格式为‘001010100’
该如何实现，谢了

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #2

var s:string;
s:='1'+'10'+'100';

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #3

什么意思？‘+’就可以了

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #4

对呀，直接加起来就中了。

 

I

ice_cream

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #5

我可能说的不是很明白，
我是想把一些字符串变量组合成一个字符串，
事先并不知道是些什么数字

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #6

var a,b,c,s:string;

s:=a+b+c;

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #7

你还没有说明白
一些字符是存在哪里的?
如果是变量中
a:=1;
b:=2;
c:=intToStr(a)+intToStr(b);

 

L

lichengbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #8

function MyFmt(const S: string): string;
begin
if Length(S) < 3 then
Result := StringOfChar('0', 3 - Length(S)) + S
else
Result := S;
end;
s := MyFmt('1') + MyFmt('10') + MyFmt('100');

 

I

ice_cream

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #9

就是把str1,str2,str3……合并到一个str中
当我copy(str,0,3)时，就是str1，当我copy(str,3,3)时，就是str2
依次类推

 

传

传呼机

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #10

就是加前導零嗎
function IntToPreZeroStr(const Value: Integer
const Digits: Byte) : String;
var
str_TmpResult : string;
begin
str_TmpResult := IntToStr(Value);
while Length(str_TmpResult) < digits do
Insert('0' ,str_TmpResult, 1);
Result := str_TmpResult;
end;

 

Z

zjbfvfv

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #11

建议如果是所有值如'1','01','1000'这样的值最好还是用INTEGER吧，用位移就很好地实现了，这样也增加了速度，灵活

 

A

anita

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #12

a:=strtoint('1')
b:=strtoint('10')
c:=strtoint('100');
d:=1,000,000,000;
d:=d+a*1,000,000+b*1,000+c;
str:=copy(inttostr(d),2,9)

 

A

anita

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #13

补充：为了让你看清位数才打的逗号，实际不打

 

H

HHXX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #14

procedure TForm1.Button1Click(Sender: TObject);

function FormatStr(const S: string
X: Integer): string;
begin
if Length(S) < x then
Result := StringOfChar('0', x - Length(S)) + S
else
Result := S;
end;

var
a,b,c: String;
Str: String;
begin
a := Edit1.Text;
b := Edit2.Text;
c := Edit3.Text;
Str := FormatStr(a, 4) + FormatStr(b, 3) + FormatStr(c, 3);
end;

 

C

chocolate2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-17

• #15

直接加前导零就可以

 

I

ice_cream

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-17

• #16

多谢各位了