دخول

Delphi4Us

كود :
type
  Tcustomer = record
    Image: TImage;
    Name: String;

  end;

عند اشتخدام كائنات بداخل السجل ستحتاج الى انشاءها

كود :
var
  Form1: TForm1;
  Emp:Tcustomer;
  Image:TImage;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   Image := TImage.Create(nil);
   Emp.Image:=Image
end;

ربما من الافضل استخدام الكلاسس الذي يتيح لك انشاء الكائنات وهدمها عند انشاءه

كود :
Tcustomer= class(TObject)
public
  Image : TImage;

  constructor Create;
  destructor  Destroy; override;
end;

مثال

كود :
constructor Tcustomer.Create;
begin
  Image := TImage.Create(nil);

end;

destructor Tcustomer.Destroy;
begin
  Image.Free;
end;

اما عن البحث فيها فانت اكيد سوف تنشئ مصفوفة منها

كود :
customer: array[0..1000] of Tcustomer;

وبعدها يمكنك من خلال تكرار المرور عليها والبحث عن اسم او رقم

ايضا فكرة اخرى يمكنك تحويل الصورة الى نص وحفظها كنص

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة