jedi fehler in mehreren Units

[Nils_13]

Hi,

ich habe in mehreren Units bei dem Compilieren Fehler:

• unit JvExControls
• alles voll mit WARNINGHEADER
• Delphi-Quellcode:

     JV_CONTROL(Control)
     JV_WINCONTROL(WinControl)
     JV_CONTROL(GraphicControl)
     JV_CUSTOMCONTROL(CustomControl)
     JV_CUSTOMCONTROL(HintWindow)

  bei so einem Code oder ählnichen (in der Unit verteilt) tritt folgender Fehler auf: '=' erwartet aber '(' gefunden, hinzu kommt noch, dass der Parser ; sehen will, es geht aber nicht.
• Delphi-Quellcode:

     function InputKeysToDlgCodes(InputKeys: TJvInputKeys): Integer;
  begin
    Result := 0;
    if ikAll in InputKeys then
      inc(Result, DLGC_WANTALLKEYS);
    if ikArrows in InputKeys then
      inc(Result, DLGC_WANTARROWS);
    if ikChars in InputKeys then
      inc(Result, DLGC_WANTCHARS);
    if ikEdit in InputKeys then
      inc(Result, DLGC_HASSETSEL);
    if ikTabs in InputKeys then
      inc(Result, DLGC_WANTTAB);
    if ikButton in InputKeys then
      inc(Result, DLGC_BUTTON);
  end;
  
  function DlgCodesToInputKeys(DlgCodes: Integer): TJvInputKeys;
  begin
    Result := [];
    if DlgCodes and DLGC_WANTALLKEYS <> 0 then
      Include(Result, ikAll);
    if DlgCodes and DLGC_WANTARROWS <> 0 then
      Include(Result, ikArrows);
    if DlgCodes and DLGC_WANTCHARS <> 0 then
      Include(Result, ikChars);
    if DlgCodes and DLGC_HASSETSEL <> 0 then
      Include(Result, ikEdit);
    if DlgCodes and DLGC_WANTTAB <> 0 then
      Include(Result, ikTabs);
    if DlgCodes and DLGC_BUTTON <> 0 then
      Include(Result, ikButton);
  end;

  Erste procedure:
  Inkompatible Typen 'TJvInputKey' und 'TInputKey'
  
  Zweite procedure:
  Inkompatible Typen 'TInputKey' und 'TJvInputKey'
• Delphi-Quellcode:

  JV_CONTROL_IMPL(Control)
  JV_WINCONTROL_IMPL(WinControl)
  JV_CONTROL_IMPL(GraphicControl)
  JV_CUSTOMCONTROL_IMPL(CustomControl)
  JV_CUSTOMCONTROL_IMPL(HintWindow)

  Deklaration erwartet aber 'JV_CONTROL_IMPL'
• In der Unit JvExComCtrls treten die ganzen Fehler nochmal auf.

Wie kann ich die eben aufgezählten Fehler beseitigen ? Das hindert mich nämlich an der Lösung des Problems bei diesem Thread.



Sry, der List[*] Befehl bringt hier leider manches ein bisschen durcheinander, ich denke ihr werdet es aber trotzdem verstehen.