Где моя ошибка, кодскажите, плз.

← →
Lapushka-dochka (2007-02-06 08:09) [0]

При выполнении выдает ошибку "Abstract Error" на строке InStrList.LoadFromFile(FileName);
Это происходит при попытке считывания данных текстового файла, который я сохранила (кстати, проверила - данные там сохранились)
Вот процедура считывания (где дает ошибку)
procedure TFRM_CBMenu.LoadChartSettingFromFile;
var
infile: TextFile;
fileName : String;
InStrList: TStrings;
begin
FileName := ChangeFileExt(GetXMLFileNameWithFullPath, ".txt");
if not(fileexists(fileName)) then exit;
AssignFile(infile, FileName);
InStrList := TStrings.Create;
Try
InStrList.LoadFromFile(FileName);
ComboBox1.Text := InStrList.Strings[0];
ComboBox2.Text := InStrList.Strings[1];
ComboBox3.Text := InStrList.Strings[2];
Edit1.Text := InStrList.Strings[3];
Edit2.Text := InStrList.Strings[4];
// CheckBox1.Checked := InStrList.Strings[5];
// CheckBox1.Checked := InStrList.Strings[6];
Edit3.Text := InStrList.Strings[7];
Edit4.Text := InStrList.Strings[8];
finally
InStrList.Free;
end;
CloseFile(infile);
end;

А Вот процедура записи данных в этот файл
procedure TFRM_CBMenu.SaveChartSettingToFile;
var
outfile: TextFile;
FileName : String;
begin
FileName := ChangeFileExt(GetXMLFileNameWithFullPath, ".txt");
try
AssignFile(outfile, FileName);
Rewrite(outfile);
writeln(outfile, ComboBox1.Text);
writeln(outfile, ComboBox2.Text);
writeln(outfile, ComboBox3.Text);
writeln(outfile, Edit1.Text);
writeln(outfile, Edit2.Text);
writeln(outfile, CheckBox1.Checked);
writeln(outfile, CheckBox2.Checked);
writeln(outfile, Edit3.Text);
writeln(outfile, Edit4.Text);
CloseFile(outfile);
except
ShowMessage("Could now create ChartSettings file");
end;
end;

← →
MBo © (2007-02-06 08:20) [1]

InStrList: TStringList;

← →
Dmitrij_K (2007-02-06 09:45) [2]

> MBo © (06.02.07 08:20) [1]

+
InStrList := TStringList.Create;

← →
TRUNK © (2007-02-06 10:00) [3]

"Abstract Error" - попытка выполнить абстактный метод объекта (объявленный, но не реализованный).
TStrings.LoadFromFile - это абстрактный метод, как и большинство остальных у объекта типа TStrings. Его реализация описана в потомках, например TStringList.

← →
Lapushka-dochka (2007-02-06 10:44) [4]

Всем большое Спасибо! :-)

читать варнинги. при компиляции вот этого
InStrList := TStrings.Create;
должно выдаться предупреждение

Где моя ошибка, кодскажите, плз. Найти похожие ветки