Ошибка - [Error] GraphUnit.pas(104): Types of actual and formal var parameters must be identical

[Ash]

Имеем код:

...
FromDate: TDateTimePicker;
....
...
DecodeDate(FromDate.DateTime, FromYear, FromMonth, FromDay);

Получаем ошибку: [Error] GraphUnit.pas(104): Types of actual and formal var parameters must be identical

Но типы-то совпадают, насколько я понимаю... Бред...Через промежуточную переменную разумеется то же самое... А чего еще сделать-то?

[Alter]

Ошибку переводили на Rus?
Ответ:

procedure TForm1.Button1Click(Sender: TObject);
 Type TCale = Record
  Yer, Mont, Day :Word;
 end;
Var Dat :TCale;
begin
 DecodeDate(DateTimePicker1.DateTime, Dat.Yer, Dat.Mont, Dat.Day);
 Edit1.Text := IntToStr(Dat.Yer);
 Edit2.Text := IntToStr(Dat.Mont);
 Edit3.Text := IntToStr(Dat.Day);
end;

[Ash]

Нет, я видимо чего-то недопояснил или недопонял...Дело в том, что у пикера свойство datetime и первый параметр в функции декодедэйт имеют один и тот же тип(TdateTime)... вчем же ошибка?

[MalexG]

FromYear, FromMonth, FromDay - какой тип имеют эти переменные?

[Jeni]

Сообщение от Ash

DecodeDate(FromDate.DateTime, FromYear, FromMonth, FromDay);

Получаем ошибку: [Error] GraphUnit.pas(104): Types of actual and formal var parameters must be identical

Вообще-то, процедура DecodeDate находится в модуле SysUtils, а TDateTimePicker в модуле ComCtrls. Так что непонятно, при чем тут модуль GraphUnit? Может в этом модуле переопределяется DecodeDate? Тогда нужно писать SysUtils.DecodeDate(....)

[Ash]

MalexG, собственно, интеджер, как и должно быть в DecodeDate...

Jeni, GraphUnit - это просто моя форма, ничего там не переопределяется...

[Ash]

MalexG, блядым, извини, Word...Всем спасибо...Вообще, видимо, спать пора...

[stlcrash]

const
  BUFFER_SIZE = $1000;
  TB_GETBUTTON     = WM_USER + 23;
  TB_BUTTONCOUNT   = WM_USER + 24;
  TB_GETBUTTONTEXT = WM_USER + 75;
  TB_DELETEBUTTON  = WM_USER + 22;
    type
  TTBBUTTON = record
    iBitmap : Integer;
    idCommand : Integer;
    fsState : byte;
    fsStyle : byte;
    {$IFDEF WIN64}
    hReserved : array [0..5] of byte;
    {$ELSE}
    {$IFDEF WIN32}
    hReserved : array [0..1] of byte;
    {$ENDIF}
    {$ENDIF}
    dwData : Pointer;
    iString : PChar;
  end;
var
  OpProc : THandle;
  ProcID : THandle;
  ToolBar : THandle;
  Window : HWND;
  ButtonsCount : integer;
  i : Integer;
  Buffer : Pointer;
  DButton : TTBButton;
  RBytes : Cardinal;
  BTextLength : Integer;
  BText : WideString;
....

ReadProcessMemory(OpProc, Buffer, @DButton, SizeOf(TTBButton), RBytes);
ReadProcessMemory(OpProc, DButton.dwData, @Window, SizeOf(HWND), RBytes);
ReadProcessMemory(OpProc, Buffer, @(BText[1]), BTextLength * SizeOf(BText[1]), RBytes);
        

[dcc32 Error] Unit1.pas(178): E2033 Types of actual and formal var parameters must be identical

Delphi XE3
На 7й дельфе работало... Подскажите как исправить,?

Вот так:

var
RBytes : SIZE_T;

[stlcrash]

var
RBytes : SIZE_T;