[Risolto] gestione tabellare di una serie di TEdit

[petrusic]

Allego l'immagine di una Form del mio corrente progetto d'apperndimento.
In essa ho inserito 9 TEdit, disposte in serie, destinatarie di altrettanti numeri da digitare uno dopo l'altro, in maniera disordinata, nella TEdit sottostante, al centro della Form.
Ciascun numero digitato dovrà essere trasferito, tenendo conto della sequenza in ordine crescente di valore dei numeri immessi, nella corretta TEdit della serie interna al riquadro "Numeri della Serie".
Piuttosto che fare riferimento a ciascuna TEdit, per procedere al caricamento del numero digitato di volta in volta, vorrei assegnare loro un Name  comune di raggruppamento, in modo da gestirle come se fossero elementi di un array.
Non ho trovato l'indicazione che mi occorrerebbe.
E' possibile farlo?

[nomorelogic]

dovresti fare in modo che, per tutti gli edit, il nome sia formato da un prefisso + un contatore, ad esempio:
Edit1, Edit2, Edit3, ec...

poi puoi cercare l'edit come suggerito nella funzione sotto

Codice: [Seleziona]

    
function EnumControls(const aControl:TWinControl; const StartSpace :string=''):String;
    var
      Res : string;
    begin
      for Cnt := 0 to aControl.ControlCount -1 do
      begin
        WriteStr(Res,StartSpace + aControl.Controls[Cnt].Name);
        Result:= Result + Res + LineEnding;
        if aControl.Controls[Cnt] is TWinControl then
          EnumControls(TwinControl(aControl.Controls[Cnt]), StartSpace+'  ')
      end;
    end;

in alternativa ti puoi salvare i puntatori dentro ad un array in modo da accedere tipo:

Codice: [Seleziona]

TEdit(controlli[2]).Text

[petrusic]

dovresti fare in modo che, per tutti gli edit, il nome sia formato da un prefisso + un contatore, ad esempio:
Edit1, Edit2, Edit3, ec...

poi puoi cercare l'edit come suggerito nella funzione sotto

Codice: [Seleziona]

    
function EnumControls(const aControl:TWinControl; const StartSpace :string=''):String;
    var
      Res : string;
    begin
      for Cnt := 0 to aControl.ControlCount -1 do
      begin
        WriteStr(Res,StartSpace + aControl.Controls[Cnt].Name);
        Result:= Result + Res + LineEnding;
        if aControl.Controls[Cnt] is TWinControl then
          EnumControls(TwinControl(aControl.Controls[Cnt]), StartSpace+'  ')
      end;
    end;

Ti ringrazio moltissimo per il suggerimento e sto cercando di capire bene il primo dei due esempi che mi hai gentilmente fornito. Purtroppo ho alcuni vuoti di comprensione nel tuo codice:
- StartSpace, aControl sono costanti.
- EnumControls è una funzione tua che visualizza in qualche modo i controlli con lo stesso prefisso nel nome?   (Error: Identifier not found "EnumControls")

Te lo chiedo perchè ho ricevuto errori in compilazione e, in particolare:

Codice: [Seleziona]

procedure TForm411.FormCreate(Sender: TObject);
const
  aControl:TWinControl;  // Fatal: Syntax error, "=" expected but ";" found

[nomorelogic]

EnumControls non è una mia funzione, è solo un esempio che ho trovato che mostra come accedere ai controlli figli tramite la proprietà controls

molto più semplicemente Controls contiene tutti i controlli di un container (form, pannello, ec...)

quindi

Codice: [Seleziona]

Form1.Controls[0];

ti restituisce il puntatore al primo controllo della form
con un semplice loop da 0 (zero) a ControlCount -1 puoi avere una lista di tutti i controlli tra i quali cercare i tuoi TEdit

[brunello]

puoi semplificare

Codice: [Seleziona]

for i := 1 to 9 do
  begin
    x := FindComponent('Label' + IntToStr(i)).ComponentIndex;
   TEdit(Components[x]).Text := IntToStr(i);
  end;

[petrusic]

EnumControls non è una mia funzione, è solo un esempio che ho trovato che mostra come accedere ai controlli figli tramite la proprietà controls
molto più semplicemente Controls contiene tutti i controlli di un container (form, pannello, ec...)
quindi

Codice: [Seleziona]

Form1.Controls[0];

ti restituisce il puntatore al primo controllo della form
con un semplice loop da 0 (zero) a ControlCount -1 puoi avere una lista di tutti i controlli tra i quali cercare i tuoi TEdit

Benissimo!
In questa fase di studio sto cercando di capire come procedere per trattare le mie 9 TEdit (EmioNum1,EmioNum2ì, ..., EmioNum9), come un array "grafico".
Per arrivare a questo però mi pare di capire che col metodo che mi hai suggerito potrei costruire un array di puntatori alle suddette TEdit.

Se fin qui ho capito bene, dovrei estrarre il valore indirizzo di ciascuna TEdit e caricarlo in un array di tipo indirizzo (es.: Puntatore), in modo da potere accedere alle TEdit tramite il valori indirizzo contenuti nell'array Puntatore.

Mi mancano perciò le conoscenze corrette per ottenere i due risultati suddetti.

Per creare la struttura di aggancio necessaria, ho cominciato a scrivere, con l'aiuto della funzione da te suggeritami, alcune istruzioni nella seguente procedura:

Codice: [Seleziona]

procedure TForm411.FormCreate(Sender: TObject);
const
  aControl:TWinControl;
  StartSpace: String= '';
var

  i: Integer;
  Res, aControl: String;

begin

  for i := 0 to aControl.ControlCount -1 do
  begin
    WriteStr(Res,StartSpace + aControl.Controls[i].Name);
    Result:= Result + Res + LineEnding;
    if aControl.Controls[i] is TWinControl then
      EnumControls(TWinControl(aControl.Controls[i]), StartSpace+'  ')
  end;
{  for i:= 1 to 9 do
  begin
    tbSist[1,1]:= ;
    TWinControl;
  end;}
end;                        

Purtroppo la prova è finita prima di cominciare, perchè il compilatore, come ho indicato nel mio post precedente, mi ha segnalato l'errore già alla definizione di

Codice: [Seleziona]

const
  aControl:TWinControl;  // Fatal: Syntax error, "=" expected but ";" found

Quindi, intanto dovrei capire come uscire da detta segnalazione di errore, in modo da potere arrivare ad ottenere i famosi valori indirizzo a tutte e 9 la mie TEdit.
Spero di essermi spiegato meglio e di potere ancora ricevere l'aiuto che mi porterà a proseguire nella prova studio corrente.
Grazie!

[nomorelogic]

Purtroppo la prova è finita prima di cominciare, perchè il compilatore, come ho indicato nel mio post precedente, mi ha segnalato l'errore già alla definizione di

Codice: [Seleziona]

const
  aControl:TWinControl;  // Fatal: Syntax error, "=" expected but ";" found

Quindi, intanto dovrei capire come uscire da detta segnalazione di errore, in modo da potere arrivare ad ottenere i famosi valori indirizzo a tutte e 9 la mie TEdit.
Spero di essermi spiegato meglio e di potere ancora ricevere l'aiuto che mi porterà a proseguire nella prova studio corrente.
Grazie!

nella sezione const devi definire le costanti e quindi l'operatore che ci si aspetta è '=' (da quì l'errore)

probabilmente volevi scrivere:

Codice: [Seleziona]

type
  aControl:TWinControl;

[petrusic]

sono alquanto inguaiato. Pur scrivendo:

Codice: [Seleziona]

type
  aControl: TWinControl;

il compilatore segnala un errore di sintassi:

carnumgioca.pas(65,11) Fatal: Syntax error, "=" expected but ":" found

Mi dispiace, ma non so proprio andare avanti.

[nomorelogic]

infatti ho sbagliato a scrivere il codice
hai provato a fare come suggerisce il compilatore (cioè mettere '=' al posto dei ':')?

[petrusic]

Si ho provato, anche se non so cosa scrivere dopo l'uguale.
Riporto il codice della unit, fino alla procedura incriminata:

Codice: [Seleziona]

unit carNumGioca;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons,
  LCLType, ExtCtrls;

type

  { TForm411 }

  TForm411 = class(TForm)
    EdigNum: TEdit;
    EmioNum1: TEdit;
    EmioNum6: TEdit;
    EmioNum7: TEdit;
    EmioNum8: TEdit;
    EmioNum9: TEdit;
    EmioNum2: TEdit;
    EmioNum3: TEdit;
    EmioNum4: TEdit;
    EmioNum5: TEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    pulsAnnullFrm411: TButton;


    procedure EdigNumChange(Sender: TObject);
    procedure EdigNumKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
      );
    procedure FormCreate(Sender: TObject);
    procedure pulsAnnullFrm411Click(Sender: TObject);
  private

  public

  end;

var
  Form411: TForm411;

implementation

{$R *.lfm}

{ TForm411 }
type
  TtbSist = array[0..8] of Integer;
var
  tbSist: TtbSist;

procedure TForm411.pulsAnnullFrm411Click(Sender: TObject);
begin
  Close
end;

procedure TForm411.FormCreate(Sender: TObject);
type
  TWinControl= ^String;

const
  StartSpace: String= '';

var
  aControl: TWinControl;
  i: Integer;
  Res: String;

  begin
  Label1.Caption:= 'Digita un numero' + System.lineending + '(da 1 a 90)';
  for i := 0 to aControl.ControlCount -1 do
  begin
    WriteStr(Res,StartSpace + aControl.Controls[i].Name);
    Result:= Result + Res + LineEnding;
    if aControl.Controls[i] is TWinControl then
      EnumControls(TWinControl(aControl.Controls[i]), StartSpace+'  ')
  end;
end;                                   
 

Ora ricevo due errori:

carnumgioca.pas(77,26) Error: Illegal qualifier
carnumgioca.pas(77,26) Fatal: Syntax error, "DO" expected but "identifier CONTROLCOUNT" found

Codice: [Seleziona]

for i := 0 to aControl.ControlCount -1 do f 

[Stilgar]

Ciao.




Come il solito cambio approccio.
Nelle ultime versioni di FPC esistono le enumerazioni (for x in insieme do).

Codice: [Seleziona]

type


  { TComponentEnumerator }


  TComponentEnumerator = class
  private
    FTarget: TWinControl;
    FIdx: integer;
    function getCurrent: TComponent;
  public
    constructor Create(aTarger: TWinControl);
    destructor Destroy; override;
    function MoveNext: boolean;
  published
    property Current: TComponent read getCurrent;
  end;


function TComponentEnumerator.getCurrent: TComponent;
begin
  Result := FTarget.Components[FIdx];
end;


constructor TComponentEnumerator.Create(aTarger: TWinControl);
begin
  FTarget := aTarger;
  FIdx := -1;
end;


destructor TComponentEnumerator.Destroy;
begin
  inherited Destroy;
end;


function TComponentEnumerator.MoveNext: boolean;
begin
  Inc(FIdx);
  Result := FIdx < FTarget.ComponentCount - 1;
end;


operator enumerator(target: TWinControl): TComponentEnumerator;
begin
  Result := TComponentEnumerator.Create(target);
end;

questo codice produce la classe che FPC necessita per poter "viaggiare" automaticamente su tipi custom.
In questo caso i component di una classe visuale.

Codice: [Seleziona]

var
  c: TComponent;


begin
  for c in self do
  begin
    if (c is TEdit) and (c.Tag = 1) then
    begin
      ShowMessage((C as TEdit).Text);
    end;
  end;
end;  

Questo è un esempio stupido di utilizzo (come vedi diventa quasi banale).
Per discriminare il tipo di component che ti interessa puoi usare la logica che meglio ti è più congeniale.


Spero di averti dato uno spunto, non so nemmeno se va (scritto di getto).


Stilgar.
[/code]

[brunello]

al di la delle varie strategie per scansionare tutti i componenti del progetto penso che il metodo che ti avevo suggerito sia il più semplice
con

Codice: [Seleziona]

  x := FindComponent('EmioNum1').ComponentIndex;

ricavi l'indice al componente da utilizzare poi  con

Codice: [Seleziona]

TEdit(Components[x]).Text := 'Prova';

puoi variare il valore  o con

Codice: [Seleziona]

stringa := TEdit(Components[x]).Text ;

leggerne il contenuto

[brunello]

Ti ho fatto programma di esempio

[petrusic]

Ti ho fatto programma di esempio

L'ho scaricato, ma l'estrazione mi dà errore, infatti, nella cartella non trovo il file .lpi

[petrus@localhost prog_Brunello]$ ls -R
.:
project1  project1.rar

./project1:
project1.ico  project1.lpr  project1.lps  unit1.lfm  unit1.pas
[petrus@localhost prog_Brunello]$

[petrusic]

al di la delle varie strategie per scansionare tutti i componenti del progetto penso che il metodo che ti avevo suggerito sia il più semplice

Scusa Brunello. Non ho preferenze verso nessuno che tenti di aiutarmi. Ho cominciato a provare un percorso che non pensavo, comunque, fosse tanto ostico per me.
Ho semplicemente rimandato ad un secondo momento la prova che tu mi hai proposto, perchè mi piacerebbe capire ed apprendere i vari metodi attuabili.
Mi rendo conto per capire certe problematiche occorrerebbe una guida dedicata, diversa da domanda e riposta. Ciò perchè, a volte la risposta è diversa da quella che ci si aspetta, sicuramente perchè chi risponde pensa di fornire un tassello per colmare un buco nero, non immaginando, giustamente, che non si tratta di un buco nero, ma di una non conoscenza di tutto l'ambiente.
Ecco perchè, nonostante gli sforzi di nomorelogic e Stilgar, io sono ancora fermo alla fermata del treno.