delphi 读txt 的问题

来源:百度知道 编辑:UC知道 时间:2024/05/25 10:32:51
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

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

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