20分:如何分隔下列字符串 ( 积分: 20 )

Z

zqssoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-28

• #1

Memo1中有下列文本，如何把把=号前面的放到memo2中，把等号后面的放到memo3中，谢谢。

Fmain.BtnOpen.Caption=Open
Fmain.BtnOpen.Hint=Open File
Fmain.BtnPaste.Caption=Paste
Fmain.BtnExport.Caption=Export
Fmain.BtnExport.Hint=Export File
Fmain.BtnHelp.Caption=Help
Fmain.BtnHelp.Hint=Help

 

F

foam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-28

• #2

放一 Button, Click.
var ss:shortstring;
si1,si2:integer;
begin
for si1:=0 to Memo1.Lines.Count-1 do begin
ss:=Memo1.Lines[si1];
si2:=pos('=',ss);
Memo2.Lines.Add(copy(ss,1,si2-1));
Memo3.Lines.Add(copy(ss,si2+1,255));
end;
end;

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-28

• #3

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
I: Integer;
begin
For I := 0 To Memo1.Lines.Count -1 Do
Begin
Memo2.Lines.Add(Memo1.Lines.Names);
Memo3.Lines.Add(Memo1.Lines.ValueFromIndex);
End;
end;

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-28

• #4

var
I: Integer;
begin
for I := 0 to Memo1.Lines.Count - 1 do
begin
Memo2.Lines.Add(Memo1.Lines.Names);
Memo3.Lines.Add(Memo1.Lines.ValueFromIndex);
end;
end;

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-28

• #5

嘿嘿，慢了点

 

Z

zqssoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-08

• #6

多人接受答案了。