HiAsm

Форумы Делаем компоненты Компонент CRC ← Ctrl1Ctrl →

Ответов: 1305

Рейтинг: 29

#1: 2007-03-29 20:05:48 ЛС | профиль | цитата

Вячеслав, а что тут непонятного?

C:\Program Files\HiAsm\Elements\delphi\code\hiCRC.pas(27) Error: Incompatible types: 'String' and 'Cardinal'

C:\Program Files\HiAsm\Elements\delphi\code\hiCRC.pas(42) Error: Incompatible types: 'String' and 'Text'

C:\Program Files\HiAsm\Elements\delphi\code\hiCRC.pas(43) Error: Incompatible types: 'String' and 'Text'

смотрим коды:

1. Строка 27

   S := GetCheckSum(N);

При этом имеем, что

var S:string;
function GetCheckSum(FileName: string): DWORD;

Соответственно, строка 27 должна иметь вид

   S := Int2Str(GetCheckSum(N));

2. Строки 42 и 43

  Seek(F, FileSize(F) div 2);  
  Fsize := FileSize(F) - 1 - FilePos(F);

При этом имеем:

var F: file of DWORD;

Лезем в Kol и видим

function FileSize( const Path: String ) : Integer;

т.е. эти строки должны иметь вид

  Seek(F, FileSize(FileName) div 2);  
  Fsize := FileSize(FileName) - 1 - FilePos(F);

После исправлений компонент хотя бы начинает компилироваться. Правда, все равно не работает, но дальше копаться что-то не слишком тянет

=========================================

00:26 Thu 29 Mar 2007

Вячеслав, ночью спать нужно, а не компоненты писать

карма: 0

Форумы Делаем компоненты Компонент CRC ← Ctrl1Ctrl →