| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TDataFile [D6, Win95/98]

Shadow77 ©   (2002-04-04 02:12:00) 

При использовании TDataFile возникает Range check error вот при таком преобразовании.

procedure TDataFile.XorBuffer(pBuf: Pointer; Count: Integer);
var
I: Integer;
P: pByte;
begin
p := pBuf;
if( FCodeKey <> "" )then
for I := 0 to Count - 1 do
begin
Ошибка>>p^ := Byte(FCodeKey[1 + ((I - 1) mod Length(FCodeKey))]) xor p^;
inc(p);
end;
end;

Чего-то я не могу разобраться почему...
Текст проги например самый простой:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DataFile, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var ini:tdatafile;
begin
ini:=tDataFile.Create("C:\data.dat");
ini.WriteString("Test","Date",DateToStr(date));
ini.Free;
end;

end.

В чем может быть дело?

---

Shadow77   (2002-04-04 17:57:00) [1]

Заработало. Вот только странно, что раньше она и без отключения проверки спокойно работала, и вдруг перестала...

---

deleon   (2002-04-04 16:29:00) [2]

попробуй перед реализацией процедуры XorBuffer поставить директиву:
{$RANGECHECKS OFF}

---

Shadow77   (2002-04-04 16:19:00) [3]

В опциях проэкта флажок Range checking не стоит... А ошибка есть... Или может я не там смотрю? Где отключить?

---

deleon   (2002-04-04 10:00:00) [4]

Как автор данного компонента сообщаю, что в данном случае необходимо отключить настройку компилятора Range Checking,
процедура работает правильно, но что-то компилятор ее не любит,
а вообще эту процедуру как-нибудь перепишу :)))

---

Anatoly Podgoretsky   (2002-04-04 09:48:00) [5]

А у тебя FCodeKey случайно не AnsiString, если да то будет обращение к нулевому элементу, а такого нет
Ошибка>>p^ := Byte(FCodeKey[1 + ((I - 1) mod Length(FCodeKey))])

Зачем то привел кусок кода не имеющий отношения к делу, но не привел описание нужных типов и обращение к XorBuffer

---

Наверх