字符截取不会截取请帮帮忙急用!!(30分)

S

swalia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-23

• #1

在Memo.Text中是这样的.
NAME ZHANXIAOKUN LISHAN LINWEI
SERF FDO 12/P1
SERF FDO 13/P2
SERF FDO 15/P3
提交后怎么样能得到 12 13 15 ZHANXIAOKUN LISHAN LINWEI
S:=Memo.Text;
fa:=pos('SERF FDO',S)+8;
fd:=pos('/P',S)-fa;
de:=copy(S,fa,fd);
For i:=1 to 什么东东 do
StringGrid1.Cells[1,i]:=de;
end;
这样应该怎么写???

 

A

asksomeone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-23

• #2

什么东东=MEMO.LINE.COUNT-2

 

C

cqwty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-23

• #3

NAME ZHANXIAOKUN LISHAN LINWEI
SERF FDO 12/P1
SERF FDO 13/P2
SERF FDO 15/P3
提交后怎么样能得到 12 13 15 ZHANXIAOKUN LISHAN LINWEI

你这个什么顺序哦？要么从开头到结尾，要么从结尾到开头，你这个倒来倒去的。
而且，你要得到的结果是一个字符串吗？

 

X

xifengge

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-23

• #4

看不懂楼主在问什么？

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-23

• #5

procedure TForm1.Button1Click(Sender: TObject);
const
cName = 'NAME ';
cNameLen = Length(cName);
var
sPart,sLine: String;
i: Integer;
s: TStringList;
begin
sLine := Memo1.Lines[0];
s := TStringList.Create;
try
s.CommaText := sLine;
for i := 1 to s.Count - 1 do Memo2.Lines.Add(s.Strings);
finally
s.Free;
end;
for i := 1 to Memo1.Lines.Count - 1 do begin
sLine := Memo1.Lines;
sPart := GetText(sLine,' ',2);
Memo2.Lines.Add(GetText(sPart,'/',0));
end;
end;

function TForm1.GetText(const ASource: String; const ADelimiter: Char;
const AIndex: Integer): String;
var
s: TStringList;
begin
Result := '';
s := TStringList.Create;
try
s.Delimiter := ADelimiter;
s.DelimitedText := ASource;
Result := s.Strings[AIndex];
finally
s.Free;
end;
end;

 

S

swalia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-03

• #6

不过还有一个问题..NAME ZHANXIAOKUN LISHAN LINWEI
SERF FDO 12/P1
SERF FDO 13/P2
SERF FDO 15/P3
提交后怎么样能得到 12 13 15 ZHANXIAOKUN LISHAN LINWEI
在哪一行不固定