Buongiorno
ho creato una semplice classe contenente due Variabili, ID di tipo Integer e Descrizione di tipo string String.
Così come indicato:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ tMyClass }
tMyClass =class(tobject)
Private
Fdescrizione: String;
Fid: Integer;
procedure Setdescrizione(AValue: String);
procedure Setid(AValue: Integer);
Public
constructor create;
destructor Destroy; override;
Property id:Integer read Fid write Setid;
Property descrizione:String read Fdescrizione write Setdescrizione;
Procedure Clear;
end;
Sulla form creo due variabili che istanziano questa classe:
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
a:tMyClass;
b:tMyClass;
Tutto funziona bene fino a quando non faccio una assegnazione del tipo A:=B
Da quel momento in poi le due variabili contengono sempre lo stesso valore.
Cosa sto sbagliando?
Grazie a chi risponderà.