Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Nils_13**

Hi,

ich habe in mehreren Units bei dem Compilieren Fehler:

unit JvExControls
alles voll mit WARNINGHEADER
markieren
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.
zusammenfalten · markieren
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'
markieren
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.

Einzelnen Beitrag anzeigen

jedi fehler in mehreren Units