請問關於字符串的處理問題 在線等待答案(30分)

S

saga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #1

请问delphi中如何像c中那样处理字符串中的每个字符（通过下标）
比如有这样的一个字符串
( T313 RE20X5 20*5 0.00 )
我要把其中的 T313 RE20X5 20*5 0.00
分别读取出来。请问应该怎么做才能做到最大的灵活性
（在这个字符串后面可能还要加一些其他的字符，但是结尾一定会是')'）

 

Q

qianwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #2

var
i: integer;
s: string;
c: char;
begin
s := '( T313 RE20X5 20*5 0.00 )';
for i := 1 to length(s) do
begin
c := s;
....
end;
end;

 

Z

zlj555

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #3

本身STRING类型就可以带下标呀。
var
lStr : string
lStr1 : string;
begin
lStr1 := lStr[2] + lStr[3];
end;

 

晴

晴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #4

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..3] of string;
begin
a[1]:='liu';
a[2]:='hai';
a[3]:='yan';
edit1.Text:=a[strtoint(edit1.Text)];
end;

 

M

micro73

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #5

str1:='(T313 RE20X5 20*5 0.00)'
showmessage(str1[1]);//下标从“1”开始

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #6

找到每个空格字符的position，即用pos函数，然后用copy函数取该位置与前一空格位置
之间的子串