Question

delphi 读txt 的问题

var str:tStrings;
i:integer;
begin
str:=tstrings.Create;
str.LoadFromFile('test.txt');
i:=s.IndexOf('■');
showmessage(inttostr(i));
s.Free;
qFileStream.Free;
end;
============================
错误: abstract error
我是第一次用 tStrings ,所以很多不懂的，不知道哪儿出了问题?!求救!
急
更正: s 应该换成 str
var str:Tstrings;
i:integer;
begin
str:=tstrings.Create;
str.LoadFromFile('test.txt');
i:=Pos(str.Text,'■');
showmessage(inttostr(i));
str.Free;
end;
==============================
关键是我要得到'■'字符的位置,二楼的大虾用到的 pos(str.Text,'■')仍然出现同样的问题,Abstract error

Answer 1

var str:tStrings;
i:integer;
begin
str:=tstrings.Create;
str.LoadFromFile('test.txt');
i:=Pos(str,'■');
showmessage(inttostr(i));
str.Free;
qFileStream.Free;
end;

Answer 2

i:=s.IndexOf('■'); 这行注释掉试一下