Matrice de transition [Résolu]

Messages postés
2
Date d'inscription
vendredi 5 décembre 2014
Statut
Membre
Dernière intervention
31 décembre 2014
-
Bonjour, salut tous le monde
j'ai ecris un code sous delphi qui permet de saisir d'une maniere dynamique la matrice de transition d'un automate identificateur.
mais j'arrive pas a introduire les poids des arcs d'une maniere dynamique.
voici le code:
deux edit pour saisir le nombre de lignes et des colonnes.
stringrid pour saisir les elets de matrice.
deux boutton un pour creer matrice l'autre pour enregistrer.
est ce que mon travail est juste ou je suis loin.
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MaGrille: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var i,j,ncol,nlig:integer ;
begin
   
  (ncol>=2) and (nlig>=2) then
   begin
     MaGrille.ColCount:=ncol;
     MaGrille.rowcount:=nlig;
   
end;

procedure TForm1.Button2Click(Sender: TObject);
 var tab:array of array of string;
     c,l:integer;
     cl:string;
begin

 setlength(tab,MaGrille.ColCount,Magrille.RowCount);
    
for c:=1 to MaGrille.colcount-1 do
  begin
    for l:=1 to MaGrille.rowcount-1 do
     begin
       cl:=MaGrille.cells[c,l];
       tab[c,l]:=cl;
         end;
  end;

end;

end.
Afficher la suite 

Votre réponse

1 réponse

Messages postés
25229
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
20 avril 2019
366
0
Merci
Si la question est résolue..
Merci de ne pas oublier de clôturer le sujet
(en cliquant sur le lien "Marquer comme résolu" qui se trouve sous le titre de la question)

Cordialement,
Jordane
Commenter la réponse de jordane45

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.