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 

1 réponse

Messages postés
25780
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 juin 2019
312
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