关于截取的头问题 (10分)

F

frankie.dan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-27

• #1

如何将以下的东东，
A1 测试
A2 测试测试
A7 测试测
A8 测试
A9 测试测试
AAB 测试测试测试
ABT 测试
AC 测试测
AD 测试
E01 测试
E02 测试
变成我想要的娄据：
A1
A2
A7
A8
A9
AAB
ABT
AC
AD
E01
E02，也就是说将后面的字去掉，只要空格前面的所有字符，用最简单的代码，谢谢

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-27

• #2

Str:='A1 测试';
Str:=Copy(Str,1,Pos(' ',Str)-1);

 

B

boot.ini

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-27

• #3

procedure getstring(ins,outs: TStrings);
//ins 要截取的字符串列表
//outs输出结果的字符串列表
var i : integer;
begin
outs.clear;
for i := 0 to ins.count-1 do
outs.add(Copy(ins,1,Pos(' ',ins)-1));
end;