Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Lapushka-dochka © (2007-02-06 08:09:00)
При выполнении выдает ошибку "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;

icWasya (2007-02-06 10:45:00) [1]
читать варнинги. при компиляции вот этого
InStrList := TStrings.Create;
должно выдаться предупреждение

Lapushka-dochka (2007-02-06 10:44:00) [2]
Всем большое Спасибо! :-)

TRUNK (2007-02-06 10:00:00) [3]
"Abstract Error" - попытка выполнить абстактный метод объекта (объявленный, но не реализованный).
TStrings.LoadFromFile - это абстрактный метод, как и большинство остальных у объекта типа TStrings. Его реализация описана в потомках, например TStringList.

Dmitrij_K (2007-02-06 09:45:00) [4]

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

+
InStrList := TStringList.Create;

MBo (2007-02-06 08:20:00) [5]
InStrList: TStringList;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »