Kółko i krzyżyk - dokończenie programu

Witam mam zadaną pracę domową z lekcji programowania ze szkoły, temat brzmi "stwórz program" postanowiłem zrobić minigrę Kółko i Krzyżyk, inspirowałem się filmem Pana Zelenta

'https://www.youtube.com/watch?v=vd0zDG4vwOw&t=376s' .

W filmie jest używany C++ Builder, ja natomiast korzystam z Delphi 7. Zatrzymałem się w połowie materiału filmowego, w momencie używania procedury? Char. Proszę o pomoc w dokończeniu, nie znam większości komend. Tyle udało mi się wykonać:

unit Unit1;

interface

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls, ExtDlgs;

type 
  TForm1 = class(TForm) 
    Image1: TImage; 
    Image2: TImage; 
    Image3: TImage; 
    Image4: TImage; 
    Image5: TImage; 
    Image6: TImage; 
    Image7: TImage; 
    Image8: TImage; 
    Image9: TImage; 
    Label1: TLabel; 
    tura: TImage; 
    Button1: TButton; 
    OpenDialog1: TOpenDialog; 
    OpenPictureDialog1: TOpenPictureDialog; 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end;

var 
  Form1: TForm1; 
  

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); 
Char image1,image2,image3,image4,image5,image6,image7,image8,image9; 
begin 
image1:='n' image2:='n' :image3:='n': 
image4:='n' :image5:='n' :image6:='n': 
image7:='n' :image8:='n' :image9:='n': 
kto='o'; 
end;

end.

Metoda sprawdzania wygranej u zelenta, to istny majstersztyk.

W 100% jako osoba ucząca się programować, bez oglądania tego filmu zrobiłbyś to tak samo, a może nawet lepiej xd

Mój problem polega na tym, że nie znam procedur w Delphi 7. A przepisać z filmu nie mogę.

To naucz się Delphi, albo zainstaluj Buildera.

1. Masz za zadanie domowe napisać program - wynika z tego, że masz przedmiot, na którym przynajmniej podstawy podstaw powinniście poznać - ty nie masz zielonego pojęcia co robisz.
2. Nie masz żadnych podstaw - bez tego sam nie napiszesz nawet z poradnikami z netu. Nie wiesz co to jest zmienna, funkcja, procedura, nie wspominając o klasach czy zdarzeniach. A to dopiero początek podstaw.
3. Jak nie chcesz/nie chce ci się uczyć to napisz ogłoszenie w dziale praca - ktoś to na pewno naklepie w parę minut za opłatą.
4. Nikt cię tu nie będzie podstaw uczył - nie od tego jest forum.

procedure TNazwaFormy.NazwaProcedury(const NazwaParametru:TypDanychNPCHAR);
begin
   ...
end;

ot cała filozofia i na wszystkie świętości nie rób tego jak autor filmu robiąc Ctrl+C, Ctrl+V przy uzupełnianiu poszczególnych elementów wystarczy podpiąć zdarzenia i wykorzystać Sender

@inżTechnik: problem w tym, że nie tyle nie znasz procedur w Delphi, co kompletnie nie znasz nawet jego składni. Czego dowodem jest metoda FormCreate, która nie wiadomo czym jest, a już na pewno nie poprawnym kodem w Delphi.

Jeśli masz to zrobić na zaliczenie w szkole to przespałeś co najmniej rok. A jeśli robisz to z własnej woli to bierzesz się za programowanie od złej strony, a do tego korzystasz ze złych materiałów. Pomijam już merytoryczną wartość kursów p. Zelenta, ale co ma C++ do Delphi? Nie znasz kompletnie Delphi, a porywasz się na portowanie kodu z innego języka - takie coś nie przejdzie.

Jak chcesz się uczyć programowania i Delphi Ci się podoba to pobierz sobie najnowszą, darmową jego wersję, albo Lazarusa, który jest darmowy i wolny. Delphi7 to przeszłość i nie ma sensu już z tego narzędzia korzystać. Podstaw programowania możesz nauczyć się z Kompendium, bo to absolutne podstawy, które nie zmieniły się w jakimś znaczącym stopniu na przestrzeni lat.

1. "Dokonczenie" :D :D Oj nie wiem czy to sie kwalifikuje skoro wstawiles jakies losowe kawalki kodu bez sensu, ktore z kolko i krzyzyk nie maja nic wspolnego.
2. Jeszcze niezle sobie dobrales material zeby sie posilkowac :D To juz lepiej idz na kilka nocek do McDonalds zarobic na warunek, wiekszy bedzie z tego pozytek.

Przepraszam, za moje zuchwalstwo macie racje nie znam się kompletnie, lecz to nie wynika w całości z mojej winy,oczywiście jestem winny, ale główną winę ponosi ta osoba-nauczyciel , która miała zająć się moją edukacją w tym kierunku. Osoba ta przez bieżący przeprowadziła kilka lekcji, w których nie wyjaśniał wiele i sam do końca nie wiedział co robi oceny wstawiał z powietrza, a jako pracę kończącą wymyślił aby stworzyć program. Śmieszne jest to, że osoba która nie ma jakich kolwiek podstaw ma tego dokonać. Stąd moja prośba poleciałby mi jakaś dobra osoba źródło , z którego mógłbym czerpać wiedzę? Bo z tego co wywnioskowałem macie złe zdanie na temat P. Zelenta, ciekawi mnie dlaczego?

[...] ale główną winę ponosi ta osoba-nauczyciel , która miała zająć się moją edukacją w tym kierunku.

Główną winę ponosisz Ty, bo to Ty masz dbać o własną wiedzę, a nie nauczyciel. Tym bardziej, że każdy dziś ma dostęp do Internetu, a tym samym do niezliczonej ilości kursów i tutoriali.

Stąd moja prośba poleciałby mi jakaś dobra osoba źródło , z którego mógłbym czerpać wiedzę?

Już Ci podałem link z kursem Delphi, po polsku, wszystko w miarę dobrze wyjaśnione.

Bo z tego co wywnioskowałem macie złe zdanie na temat P. Zelenta, ciekawi mnie dlaczego?

Dowiesz się w swoim czasie.

Dobrze, dziękuje za wszelkie uwagi, prosiłbym o zamknięcie tematu.