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

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

← →
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]

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

---

← →
icWasya ©   (2007-02-06 10:45) [5]

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

---

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

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



Память: 0.46 MB
Время: 0.031 c