Projekt

0

Witam wszystkich! Mam pewien problem i bylbym bardzo wdzieczny jezeki ktos zechcialby mi pomoc. Otoz mam do wykonania program ~ort! rozne algorytmy sorowania. Algorytmy juz mam napisane ale problem tkwi w interfejsie do calosci. Chcialem zrobic tak ze po nacisnieciu przycisku np: algorytm1 wykonuje mi sie dany algorytm i wynik wyswietlany jest w tym samym okienku w odpowiednim polu. Problem tkwi w tym ze chcialem zeby algorytmy byly w osobnych plikach i nie wiem jak odwolac sie do np: algorytmu1 przez nacisniecie przycisku na interfejsie i jak przekierowac uzyskany wynik zeby na tym interfejsie sie pojawial. Za wszelkie wskazowki z gory dziekuje i pozdrawiam :-[

//nie widze w tym posciei logiki..popraw jak mozesz by byl bardziej czytelny - no i orta koniecznie - lofix

0

Delphi->File->New->Unit i robisz np. coś w tym stylu

unit Unit2;

interface

function Algorytm1(X, Y : Integer):Integer;

implementation

function Algorytm1(X, Y : Integer):Integer;
begin
  Result := X + Y; //tutaj twoj algorytm
end;

end.

Potem w głównym unicie programu dodajesz do sekcji "uses" nazwe unita który zawiera algorytm (w tym przypadku Unit2) a potem np. w OnClick jakiegoś buttona:

Label1.Caption := IntToStr(Algorytm1(1, 3));

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0