matrice de transition Résolu

Question

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.

jordane45 · Answer

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

Matrice de transition

1 réponse

Votre réponse

Discussions similaires