我的memo失灵了吗？？？？？？？？？？？？？？？？？？(简单问题求解)(40分)

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #1

我有一段程序：
var s1,s2:string;
s1:='sdffgr';
memo1.lines.loadfromfile(f);
for i:= o to 50 do
begin
s1:=memo1.Lines.Strings;
if strcomp(pchar(s1),pchar(s2))=0 then
memo1.Lines.Delete(i);
end;
memo1.Lines.SaveToFile(f);
可是执行程序一看，根本就没有删除改行，怎么回事啊？？？

 

Z

zhhc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #2

把
s1:=memo1.Lines.Strings;
改成
s2:=memo1.Lines.Strings;

 

M

maming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #3

你用comparetext试一下看。

 

D

dingsg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #4

对

 

W

westboy2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #5

s2没有付值。

 

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #6

是我的笔误：s1:=memo1.Lines.Strings;
应该是s2:=memo1.Lines.Strings;

 

M

marmot007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #7

你给s1 赋了值，又用string覆盖掉了

 

K

Kingron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #8

把这一行改一下：
for i:= o to 50 do
--〉
for i:=50 downto 0 do

 

X

xygz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #9

拜托，自己跟踪一下，看看判断的时候两个值是否相等就完了。

 

小

小人物

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #10

for i:=50 downto 0 do

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #11

呵呵！发现问题所在，“for i:= o”？？？？
应该是for i:= 0

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #12

改进了一下，不知是否满足你的需要？

var s1,s2:string;
s1:='sdffgr';
p:integer

begin
memo1.lines.loadfromfile(f);
Linescount:=Memo1.Lines.Count

for i:= 0 to Linescount-1 do
begin
s2:=memo1.Lines.Strings;
Repeat
p:=pos(s1,s2)

if p>0 then begin
memo1.Lines.Delete(i)

until p=0

end;
memo1.Lines.SaveToFile(f);
end;

 

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #13

多人接受答案了。