Скачать: CL | DM;

У меня глюки или у программы?   Найти похожие ветки 

← →
gfhjs   (2003-06-29 14:11) [0]

Пишу:
procedure fil;
var i, j: integer;
er: TStringList;
begin
er := nil;
j := 0;
er.LoadFromFile("ques.txt");
for i:= 0 to er.Count do begin
if er[i] = "qu" then inc(j);
end;
Form1.label1.caption:= inttostr(j);
end;

А оно на строке er.LoadFromFile("ques.txt"); вызывает AV. Что делать?

---

← →
DVM ©   (2003-06-29 14:14) [1]

А создавать (TStringList) Пушкин будет?

---

← →
Palladin ©   (2003-06-29 14:14) [2]

У тебя конечно...
объект создать надо сначала...
er:=TStringList.Create;

---

← →
Palladin ©   (2003-06-29 14:15) [3]

> for i:= 0 to er.Count do begin

for i:=0 to er.count-1 do begin

---

← →
gfhjs   (2003-06-29 14:16) [4]

АА.. Да, действительно жавно я Дельфи не занимался... Такие вещи забываю :)

---

← →
Anatoly Podgoretsky ©   (2003-06-29 15:00) [5]

А если разница между у тебя и в программе?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c