Non capisco perchè il compilatore mi segnala questo errore : "uinserimento.pas(64,48) Error: Identifier not found "TeData"
la casella edit mi sembra correttamente dichiarata infatti all'evento on change la trova; quando però provo ad utilizzarla nella procedura inseriscicespiti è come se non esistesse; ovviamente mi segnala errore anche per le altre 3 seguenti; help non ne esco
grazie
unit Uinserimento;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
const
nomefile='Cespiti.dat';
type
cespite = record
datafatt:string[10];
numfatt:string [10];
costo:integer;
quota:integer;
end;
{ TFInserimento }
TFInserimento = class(TForm)
TeQuota: TEdit;
Tecosto: TEdit;
TeNumero: TEdit;
TeData: TEdit;
Tbinseces: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure TeDataChange(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
FInserimento: TFInserimento;
implementation
{$R *.lfm}
{ TFInserimento }
procedure TFInserimento.TeDataChange(Sender: TObject);
begin
showmessage (TeData.Text);
end;
procedure inseriscicespiti;
var ce:cespite;
s:string;
fileces: file of cespite;
begin
s:=''; ce.datafatt:='';ce.numfatt:='';ce.costo:=0;ce.quota:=0;
chdir ('c:\prova\files');
assignfile (fileces, nomefile);
if FileExists (nomefile) then begin
reset (fileces);
seek(fileces,filesize(fileces));
ce.datafatt:=TeData.Text;
ce.numfatt:=TeNumerofattura.text;
ce.costo:=TeCosto.text;
ce.quota:=Tequota.text;
closefile (fileces);
end;
end;
end.
unit Uinserimento;
...
TFInserimento = class(TForm)
...
end;
procedure inseriscicespiti;
...
procedure TFInserimento.inseriscicespiti;
begin
...
end;
oppure
unit Uinserimento;
...
TFInserimento = class(TForm)
...
end;
...
procedure inseriscicespiti;
begin
...
ce.datafatt:=Uinserimento.TeData.Text;
ce.numfatt:=Uinserimento.TeNumerofattura.text;
ce.costo:=Uinserimento.TeCosto.text;
ce.quota:=Uinserimento.Tequota.text;
...
end;
Quello che intende Nomore è trasformare la procedura in medodo.
L'idea è fare un metodo che viene richiamato dentro la classe (TFInserimento). In questo modo sono metodi che possono usare tutti gli attributi della classe stessa e non impazisci. Senza combiare di molto il codice che hai scritto.
Come ti diceva dentro la procedura usavi gli attributi della classe senza far capire al compilatore che volevi usare le "cose" della TFInserimento.
Eventualmente, potresti passare alla procedura la tua istanza e usare quella (sempre per pulizia di codice e separazione delle competenze)
TFInserimento = class(TForm)
...
end;
procedure inseriscicespiti(sourceForm : TFInserimento);
begin
ce.datafatt:=sourceForm .TeData.Text;
....
end;
Onestamente credo che la riga
ce.datafatt:=Uinserimento.TeData.Text;
Credo che nomore intendesse :
ce.datafatt:=FInserimento.TeData.Text;
Solo che usa una variabile globale. Un domani usi due istanze diverse della form d'inserimento e casca il palco ;)
PS:
In genere, all'inizio delle "parole" si mette un T o una I per "dichiarare" che si parla di un Tipo o di una Interfaccia.
Usare le T per gli attributi, a chi è abituato a leggere codice "borland style" crea qualche problema in più nella lettura e comprensione del codice.
Stilgar