请问高手门一个关于字符串的问题，急yong(50分)

A

aikede

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-27

• #1

s:='abc'+#$一串字符，如何截取前面的一段abc可显示字符s的可显示字符长度不固定，
谢谢

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-27

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
begin
s:='abc'+#$;
ShowMessage(Copy(s,1,Length(s) -1));
end;

 

S

sunboy_del

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-27

• #3

要截取的字符串都是在''里吗？提取+前面的就行了。
Function Before ( Src:string ;
Var S:string ) : string ;
Var
F : Word ;
begin
F := POS (Src,S) ;
if F=0 then
Before := S
else
Before := COPY(S,1,F-1) ;
end ;

 

F

ftlifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-27

• #4

var
s1:string;
for i:=1 to length(s)do
begin
if (ord(s)>32) and (ord(s)<94
s1:=s1+s
end
主要是这个想法

 

T

tandxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-28

• #5

(ord(s)>32) and (ord(s)<94为可见字符

 

令

令狐小侠

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-27

• #6

先找出#的位置 用pos 函数
在用copy 函数不就ok了?