Accueil > Forum > > > > liste d'object
liste d'object
jeudi 18 juin 2009 à 03:19:21 |
liste d'object

la tuque
|
Bonjour, j'ai un petit problème je veux créer un liste d'objet que j'ai créer . type TCarte = class(tobject) Valeur:integer; Sorte:String; private { Déclarations privées } protected {déclaration proteger} public { Déclarations publiques } end; je veux intégrer cet objet dans un liste mais quand j'utilise u TList il me fait un acess violation et si j'utilise tobjectlist, je peux l'insérer mais le problème c'est quand je veut prendre un objet dans la liste et le mettre dans une variable de type tcarte il me marque type imcompatible. function TJeuxDeCartes.PrendreCarte(No: integer): TCarte; var uneCarte : tcarte; begin uneCarte := listejeuxdecarte[No]; result := uneCarte; end; donc, j'aimerais savoir comment faire pour gérer mon jeux de carte avec avec une liste de carte ou si vous avez d'autre option j'acepte toute proposition. merci ps : j'ai essayer avec un tableau mais mon problème c'est le random j'ai de la misère a le faire pour qu'il me renvoi toujous des valeus différentes. si je fait un random(52) même avec le randomize je ne suis pas capable de faire qu'il exclu les valeurs déja sorti merci à tous de votre aide
|
|
jeudi 18 juin 2009 à 04:07:24 |
Re : liste d'object
|
jeudi 18 juin 2009 à 12:55:53 |
Re : liste d'object

Bacterius
|
Et pour eviter de sortir toujours les mêmes valeurs, il existe une solution simple : tu crées un tableau dynamique des 52 valeurs, et tu mélanges. Puis ensuite, tu les tire 1 par 1.
type
TCardList = array [0..51] of Integer; {Integer est le numéro de la carte}
function CreateCardList: TCardList;
Var
I: Integer;
begin
for I := Low(TCardList) to High(TCardList) do Result[I] := I;
end;
procedure ShuffleCardList(var CardList: TCardList);
var
A, B, I, V: Integer;
begin
for I := Low(TCardList) to High(TCardList) do
begin
A := random(52);
B := random(52);
V := CardList[A];
CardList[A] := CardList[B];
CardList[B] := V;
end;
end;
Après avoir créé ta liste avec la première routine, tu la mélanges avant chaque partie (par exemple). A partir de là, tu tires les cartes une par une (en gardant en mémoire la position actuelle dans la liste).
(On suppose que tu as fait randomize au début de l'application)
Cordialement, Bacterius !
|
|
jeudi 18 juin 2009 à 12:56:35 |
Re : liste d'object

Bacterius
|
Pardon j'ai écrit trop vite, ce n'est pas un tableau dynamique, c'est un tableau tout court ^^
Cordialement, Bacterius !
|
|
jeudi 18 juin 2009 à 18:36:05 |
Re : liste d'object
|
jeudi 18 juin 2009 à 20:48:15 |
Re : liste d'object

la tuque
|
merci de vos réponses, je vais regarder ça et essayer bien entendu et je vais vous revenir.
|
|
vendredi 19 juin 2009 à 03:22:14 |
Re : liste d'object

la tuque
|
bonjour, j'ai essayer ce que cirec à dit à propos du transtypage on dirait que cela à fonctionner mais j'ai un petit problème l'ors de la création de mes cartes j'ai un access violation dans nouvelles carte.
Bacterius a défault d'avoir l'ai un peut lent j'arrrive pas à comprendre comment fonctione le code que tu ma données pour mélanger les carte, j'aimerai avoir un peut d'explication.
foxi merci pour ton source il va surmend m'aider tout au long de mon programme mais pour l'instant je conprend pas tout et il y a beaucout trop de chose dedans pour l'instant
merci à tous les trois.
|
|
vendredi 19 juin 2009 à 03:36:21 |
Re : liste d'object
|
vendredi 19 juin 2009 à 05:01:27 |
Re : liste d'object

la tuque
|
OK, cela démontre bien la différence de niveau entre nous. de toute façon ce n'est pas vraiment les différentes procédures, fonctions ou les classes que je ne comprend pas elles sont asser claire à comprendre même si en a que je ne comprend pas, mais c'est surtout les stdcall que j'ignore a quoi cela sert et l'utilisation du inherited cela sert tu a enlever l'éritage ou à l'appliquer je me souvien plus. mais j'admet que cela est très complet et personnellement j'aurais même pas penser faire quelque chose d'aussi complexe. C'est sur que mon but est justement de creer quelque chose dans ce genre donc comme je l'ai dit précédament il me sera très utile durand la création de mon code  une petite question ta feuille creer un dll utilisable avec n'importele quel programme qui utilise un jeux de carte , mais tu fait koi pour creer un dll. c'est tu juste ta const cardsdll = 'cards.dll'; merci de ton aide
|
|
vendredi 19 juin 2009 à 05:38:20 |
Re : liste d'object

la tuque
|
a oui j'avais oublier voici le code de ma classe jeux de carte pour visualiser où se situe l'erreur. merci de votre aide.
//projet Horloge.dpr //uJeuxDeCartes.pas //programer par latuque //le 10 juin 2009 unit uJeuxDeCartes;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Dialogs,uCarte, StdCtrls, Contnrs;
type TJeuxDeCartes = class private { Déclarations privées } TabJeuxDeCarte: array[1..52] of TCarte; ListeJeuxDeCarte : tobjectlist; function NouvelleCarte(Valeur:integer; Sorte:String):TCarte; constructor create; protected {déclaration proteger} FCarte:TCarte; public { Déclarations publiques } procedure CreerJeux; function PrendreCarte(No:integer):TCarte; end;
implementation
{ TJeuxDeCartes }
constructor TJeuxDeCartes.create; begin listejeuxdecarte := TObjectList.Create; end;
procedure TJeuxDeCartes.CreerJeux; var i,j,k : integer; sorte:string; begin k:=1; for i:= 1 to 4 do begin for j:= 1 to 13 do begin case i of 1: sorte:= 'Coeur'; 2: sorte:= 'Careau'; 3: sorte:= 'Pique'; 4: sorte:= 'Trefle'; end; listeJeuxDeCarte.Add(Nouvellecarte(j,sorte)); // TabJeuxDeCarte[k]:=NouvelleCarte(j,sorte); k:=k+1; end; end; end;
function TJeuxDeCartes.NouvelleCarte(Valeur: integer; Sorte: String): TCarte; begin FCarte := TCarte.Create; FCarte.valeur := valeur; FCarte.sorte := Sorte; result := FCarte; fcarte.Free; end;
function TJeuxDeCartes.PrendreCarte(No: integer): TCarte; var uneCarte : tCarte; begin uneCarte := TCarte(listejeuxdecarte[No]); // ListeJeuxDeCarte.Extract(uneCarte); result := uneCarte;
end;
end.
|
|
Cette discussion est classée dans : problème, type, objet, liste, tcarte
Répondre à ce message
Sujets en rapport avec ce message
POO : problème d'héritage [ par thierryC ]
Bonjour, Dans un programme en Delphi6, j'ai le souci suivant : une classe A contient un objet de type Classe B ; dans cette classe B, je crée un obje
Besoin d'un liste.... [ par DeltaFX ]
Bah oué, j'ai une appli qui interroge un GPS et qui me dit quel est le radar le plus proche. Pour pas me pomper l'air, j'utilise un array of Tpoi (la
DBGRID ET GESTION CHAMP TYPE DATETIME [ par ellde ]
Bonjour, Voilà mon problème : j'ai une table paradox qui contient plusieurs champs dont 1 champ de type Date avec champs persistant et avec un editma
Problème sur une collection d'objet... [ par Wulfgar ]
Salut, Voila, j'aimerais juste comment -si c'est possible- redimensionner une collection d'objet dynamiquement sans utiliser des pointeurs... Merci
Problème ApplyUpdates [ par trezeled ]
Bonjour,J'utilise un applyudates pour effectuer les différentes manipulations sur mes tables et j'ai une erreur du type ORA-01722 invalid number.En fa
Création d'applications skinnées avec FreeMedia (aka MediaPack) [ par maxabbey ]
Salut à tous,Sur SourceForge.net, il y a une suite de composants Delphi, FreeMedia (http://sourceforge.net/projects/ksfreemedia), gratuite et avec sou
Initialisation d'un objet de type TOracleDataSet (DOA) [ par manudel ]
Ma question porte sur la programmation objet.J'aimerais pouvoir initialiser une variable que je déclare :var DOA1 : TOracleDataSet;Avant de créer l'o
Problème de portée d'une déclaration de type [ par K0rr1gan ]
Bonjour,j'ai un problème avec le passage d'une variable de type défini ainsi : Type TArrayOfByte = Array of Byte;C'est un type que je déclare de la m
Problème de combobox [ par jace1975 ]
Bonjour,Ce que je souhaite faire : Par défaut j'ai un combobox, avec une liste de valeurs par défaut. Je veux néanmoins pouvoir rajouter une valeur à
Agrandir une liste de type ListView [ par FFYLH ]
Bonjour, je souhaite développer un petit outil que lorsque l'on passe le curseur sur un objet de type TLISTVIEW, que l'on puisse agrandir cette liste
Livres en rapport
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|