ďťż

Ładny brzuch

Mam problem z zachowaniem porządku kodzie. Jako pierwszą procedure zawsze daje Form.OnCreate, lecz jak ma wykonywać jakąś moją inną funkcję która jest napisana po niej to nie widzi jej. Deklarowałem je w CLASS formy, lecz jak jest to funkcja to nie wiem jak jej używać, bo jak wstawie tylko nazwe to też nie widzi.

np.

function PROC(a : integer; b : Integer) : Integer; Form.OnCreate(); begin EDIT.TEXT := INNA_FUNKCJA(PROC,INNA); end; ... WTEDY ... TForm.PROC //itd.

funkcja PROC wymaga składników, lecz jak jest przed OnCreate to ich nie żąda.

BŁĄD : Undeclared identifier 'PROC'

Co wpisywać w miejsce PROC w OnCreate?

Chyba niewyraźnie wytłumaczyłem, jak coś to pisać.


Porozdielaj sobie program na moduły.

Weź wytłumacz jeszcze raz :P

wpisz nazwę funkcji do sekcji np private modulu



wpisz nazwę funkcji do sekcji np private modulu

zrobiłem tak:

MOJE = class function Play(Code: integer; wParam, lParam: Longint): Longint; stdcall; end; ... OnCreate() begin ala := cos(MOJE.Play,inny) end; ... function MOJE.Play(a : integer; b : integer): integer; begin ... end;

Chyba was nie zrozumiałem, bo nadal nie działa. Jak dopisze do private to też!

ala := cos(MOJE.Play,inny)
Co to jest cos, inny?


...

funkcje

type TForm1 = class(TForm) ... function Play(Code: integer; wParam, lParam: Longint): Longint; stdcall; end; implementation function TForm1.Play; begin ... end; procedure TForm1.OnCreate(Sender: TObject); begin ala:=cos(@TForm1.Play,@inny); end;
lub

implementation function Play(Code: integer; wParam, lParam: Longint): Longint; stdcall; begin ... end; procedure TForm1.OnCreate(Sender: TObject); begin ala:=cos(@Play,@inny); end;


...

Zastosowałem pierwszy wariant, działa, ale z błędami pamięci. Nie wiem czemu, bo wcześniej wszystko chodziło :(

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •