[Tonyy]

вот мой код. не могу понять почему в процедуре записи при выполнении showmessage возникает ошибка accessViolation. судя по всему класс не инициализировался, но почему?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

type   TspsStrka=class   Npr:Real;   constructor create();   procedure read(str:string);   end;     TSPS=class   name:string;   spsStroka:array[0..99999] of TspsStrka;   constructor create(openname:string);   procedure read;   procedure writetofile(savename:string);   end;   constructor TspsStrka.create(); begin   Npr:=0;   Npk:=0;   X:=0;   Y:=0;   end;   constructor TSPS.create(openname:string);    begin   name:=openname; end;   procedure TspsStrka.read(str:string); begin   Npr:=strtofloat(copy(str,2,16)); end;   procedure tsps.read; var t:TStringList; i:Cardinal; begin     t:=TStringList.Create;     t.LoadFromFile(name);     for i:=0 to t.Count-1 do begin     spsStroka[i]:=TspsStrka.create();     spsStroka[i].read(t[i]);     end; t.Free; end;   procedure TSPS.writetofile(savename:string);   begin      ShowMessage(FloatToStr(spsStroka[0].Npr));   end;   end.

[icWasya]

Не показан код создания TSPS и вызовов его методов read и writetofile

[Tonyy]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.btspsClick(Sender: TObject); var   SPS:TSPS;   openname:string; begin if Open.Execute then         SPS:=TSPS.create(Open.FileName) else Exit;   SPS.read;      if Save.Execute then   SPS.writetofile(Save.FileName) else begin sps.free; Exit; end;   SPS.Free; end;

[Tonyy]

в выше описанном методе tsps.read если поставить shomessage внутрь цикла создания и чтения строк - то он показывает значение. а если поставить после цикла, то ошибка доступа, какой бы элемент я не выводил

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure tsps.read; var t:TStringList; i:Cardinal; begin     t:=TStringList.Create;     t.LoadFromFile(name);     for i:=0 to t.Count-1 do begin     spsStroka[i]:=TspsStrka.create();     spsStroka[i].read(t[i]);     showmessage(FloatToStr(spsStroka[i].Npr)); // - работает     end; //а если поставить здесь showmessage(FloatToStr(spsStroka[i].Npr)); // то ошибка accesviolaion t.Free; end;

[Страдалецъ]

Единственная причина, почему так может происходить, это размер читаемого файла нулевой, тогда понятно, что spsStroka[i] не инициализирована, а вот если файл не нулевой, тогда непонятно появление ошибки.

[Tonyy]

исправил код. теперь все работает.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104

unit USPS;   interface uses   Windows, Messages, SysUtils,  Classes,   Forms;   type   TspsStroka=class     Npr, Npk, X, Y:{array of }Real;   constructor create();   procedure read(str:string);   end;     TSPS=class   name:string;   SpsStrokaCount:Cardinal;   SizeOfmas:Cardinal;   spsStroki:array {[0..99999]} of TspsStroka;   constructor create(openname:string);   procedure read({str:string}openname:string);   procedure writetofile(savename:string);   end;   implementation   constructor TspsStroka.create(); begin     Npr:=0;   Npk:=0;   X:=0;   Y:=0;   end;   constructor TSPS.create(openname:string); var   t:TStringList;   i:Integer;   str:string; begin   name:=openname;   SpsStrokaCount:=0;   t:=TStringList.Create;   t.LoadFromFile(openname);   SizeOfmas:=0;   for i:=0 to t.Count-1 do begin     Application.ProcessMessages();     str:=t[i];     if str[1]='H' then Continue;     inc(SizeOfmas);   end;   SetLength(spsStroki,SizeOfmas);   t.Free; end;   procedure TspsStroka.read(str:string); begin   Npr:=strtofloat(copy(str,2,16));   Npk:=strtofloat(copy(str,18,8));   X:=strtofloat(copy(str,47,9));   Y:=strtofloat(copy(str,56,10)); end;   procedure tsps.read({str:string}openname:string); var   i:Cardinal;   str:string;   t:TStringList; begin    t:=TStringList.Create;    t.LoadFromFile(openname);    for i:=0 to t.Count-1 do begin   Application.ProcessMessages();   str:=t[i];   if str[1]='H' then Continue;       spsStroki[SpsStrokaCount]:=TspsStroka.create();     spsStroki[SpsStrokaCount].read(str);     Inc(SpsStrokaCount);     end;   t.Free; end;   procedure TSPS.writetofile(savename:string); var   ft:TStringList;   i:Integer;   str:string; begin   ft:=TStringList.Create;   for i:=0 to SizeOfmas-1 do begin   Application.ProcessMessages();   str:=floatToStr(spsStroki[i].Npr)+#9+floatToStr(spsStroki[i].Npk)+#9+floatToStr(spsStroki[i].X)+#9+floatToStr(spsStroki[i].Y);   ft.Add(str);   str:='';   end;   ft.SaveToFile(savename);   ft.Free; end;   end.