Force

Forum Programowanie > Ogląda profil

Profil

Zdjęcie użytkownika

Ocena

Opcje

Prywatny komunikat

Force nie posiada prywatnego komuniakatu.

http://fp.unit1.pl

Prywatne informacje

Force

Nowy na forum

Wiek nieznany

Mężczyzna

Położenie nieznane

Data nieznana

Zainteresowania

Brak informacji

Inne informacje

Gadu-Gadu: Brak informacji

Statystyki

Dołączył: pią, 01 wrz 06

Wyświetleń profilu: 3,213*

Ostatnio widziany: niedziela, 05 wrzesień 2010 - 17:45

Czas lokalny: pią, 10 wrz 2010 - 19:18

1,205 postów (1 postów na dzień)

Informacje kontaktowe

Brak informacji

Brak informacji

Brak informacji

Brak informacji

Wyślij prywatną wiadomość

Prywatne

* Wyświetlenia profilu aktualizowane są co godzinę

Super użytkownicy

Tematy

Posty

Komentarze

Znajomi

Moja zawartość

3 Jan 2010

Czytaj Temat

Grafika dla platformówki

W ramach własnego rozwoju próbowałem zrobić jakąś grafikę co by ktoś mógł użyć, a ja bym próbował w tablecie coś robić. Więc o to pola do platformówki, mają wymiary 64x64 i jest ich 48, dokładny opis walnąłem na swoją stronę. Obrazek

Darmowe do użytku nie komercyjnego

13 Dec 2009

Czytaj Temat

Średniowieczna wieś - set

Już wymęczyłem modele 3d do jednego set-u i go udostępniam go do celów niekomercyjnych.
Link po obrazkach
Obrazek

Średniowieczna wieś

20 Jul 2009

Czytaj Temat

[Delphi] Zagadka z override,virtual

Tak z bloga: Mamy sobie taki kod (Zagadka A):

Delphi

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TA = class
    public
      procedure metoda;virtual;
  end;

  TB = class(TA)
    public
      procedure metoda;override;
  end;

  TC = class(TB)
    public
      procedure metoda;virtual;
  end;

  TD = class(TC)
    public
      procedure metoda;override;
  end;

procedure TA.metoda;
begin
  Writeln('A');
end;

procedure TB.metoda;
begin
  Writeln('B');
end;

procedure TC.metoda;
begin
  Writeln('C');
end;

procedure TD.metoda;
begin
  Writeln('D');
end;

var
  d : TD;
begin
  d := TD.Create;
  TA(d).metoda;
  TB(d).metoda;
  TC(d).metoda;
  TD(d).metoda;
  TD(TB(d)).metoda;
  d.Free;
  readln;
end.
 

I teraz pytanie co się stanie? Co będzie na ekranie widać? Hmy?

A co gdy klasy będą takie (Zagadka B ):

Delphi

  TA = class
    public
      procedure metoda;virtual;
  end;

  TB = class(TA)
    public
      procedure metoda;override;
  end;

  TC = class(TB)
    public
      procedure metoda;virtual;
  end;

  TD = class(TC)
    public
      procedure metoda;
  end;
 

Zagadka C:

Delphi

  TA = class
    public
      procedure metoda;virtual;
  end;

  TB = class(TA)
    public
      procedure metoda;override;
  end;

  TC = class(TB)
    public
      procedure metoda;override;
  end;

  TD = class(TC)
    public
      procedure metoda;
  end;
 

Odpowiedź 1:
B
B
B
D
B
Odpowiedź 2:
B
B
C
D
D
Odpowiedź 3:
B
B
B
D
D
Odpowiedź 4:
B
B
B
D
D
I teraz proszę połączyć litery zagadek z numerami odpowiedzi (jedna jest dodatkowo

)

Proszę nie kompilować

15 Jul 2009

Czytaj Temat

Młyn wodny

I kolejny model wyskrobałem, tym razem młyna wodnego. Ma 2581 trójkątów, składa się z kilka części:
Budynek
Balkon1
Balkon2
Podpórka
Koło
Coś drewnianego co wodę kieruje na koło
Młyn wodny
Obrazek

10 Jul 2009

Czytaj Temat

[Delphi] Wywołanie metody w rtti

Chodzi mi czy się da, a jak tak to jak, aby na początku używając rtti wziąć po nazwie metodę z klasy a potem ja wywołać z parametrami. Nie mogę przy tym np. pobrać wskaźnik i rzutować na jakiś typ, bo tego typu nie znam. Czyli dopiero w czasie działania program poznają jaką metodę mam uruchomić i z jakimi parametrami.

Ostatnio byli