1 för >
1 för >Project1.dpr program Project1; bruk Windows Meddelanden; {$R Res \ Ressource1.res} {fungera SetDlgItemText (hDlg: HWND; nIDDlgItem: Heltal; lpString: PChar): BOOL; stdcall; fungera DialogBox (hInstance: HINST; lpTemplate: PChar; hWndParent: HWND; lpDialogFunc: TFNDlgProc): Heltal; fungera DialogBoxParam (hInstance: HINST; lpTemplateName: PChar; hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Heltal; stdcall;} {fungera DialogBoxParam; utsidan user32 namnger ”DialogBoxParamA”; fungera MessageBoxA; utsidan user32 namnger ”MessageBoxA”; fungera SetDlgItemText; utsidan user32 namnger ”SetDlgItemTextA”; fungera EndDialog; utsidan user32 namnger ”EndDialog”;}, Fungera dialogen (HWnd, msgen, wParam, lParam: heltal): heltal; stdcall; börja Resultat: = 1; om wParam = sc_close därefter EndDialog (HWnd, 1); FallMsg av WM_INITDIALOG: börja avsluta; WM_MOUSEMOVE: Börja SetDlgItemText (HWND, 1000, PChar (”Scrooling text”)); avsluta; WM_LBUTTONDOWN: {På den lämnade musen knäppas klickar}, Börja avsluta; WM_DESTROY: börja avsluta; Annat resultat: = 0; Avsluta; avsluta; börja DialogBox (0, ”PROGRAM1”, 0, @Dialog); avsluta. hjälp för >Any för <-/pre>
program Project1; bruk Windows Meddelanden; {$R Res \ Ressource1.res} {fungera SetDlgItemText (hDlg: HWND; nIDDlgItem: Heltal; lpString: PChar): BOOL; stdcall; fungera DialogBox (hInstance: HINST; lpTemplate: PChar; hWndParent: HWND; lpDialogFunc: TFNDlgProc): Heltal; fungera DialogBoxParam (hInstance: HINST; lpTemplateName: PChar; hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): Heltal; stdcall;} {fungera DialogBoxParam; utsidan user32 namnger ”DialogBoxParamA”; fungera MessageBoxA; utsidan user32 namnger ”MessageBoxA”; fungera SetDlgItemText; utsidan user32 namnger ”SetDlgItemTextA”; fungera EndDialog; utsidan user32 namnger ”EndDialog”;}, Fungera dialogen (HWnd, msgen, wParam, lParam: heltal): heltal; stdcall; börja Resultat: = 1; om wParam = sc_close därefter EndDialog (HWnd, 1); FallMsg av WM_INITDIALOG: börja avsluta; WM_MOUSEMOVE: Börja SetDlgItemText (HWND, 1000, PChar (”Scrooling text”)); avsluta; WM_LBUTTONDOWN: {På den lämnade musen knäppas klickar}, Börja avsluta; WM_DESTROY: börja avsluta; Annat resultat: = 0; Avsluta; avsluta; börja DialogBox (0, ”PROGRAM1”, 0, @Dialog); avsluta. hjälp för >Any för <-/pre>
1: 2: 3: 4: 5:
Fungera ForecastValue (rgValues som spänner) som dubbelt Dunkelt n som Long n = rgValues.Cells.Count ForecastValue = utvärderar (”TRENDEN (” & rgValues.Address (utsida: =True) & ”,” & (n + 1) & ”)”) (1) Avsluta fungerar
