mohon bantuan dan pencerahannya dari para master delphi....
bagaimana cara membersihan layer pada saat pencarian data yang ditampilkan berupa image,.
inti permasalahannya seperti ini:
saat dilakukan pencarian data jika ada maka akan ditampilkan image sebanyak data tersebut nah saat dilakukan pencarian ulang dengan data yang berbeda image pada pencarian pertama mash ditampilkan di layer jdi layer tsb blm clear. berikut coding yg saya pkai tlong dibantu ya agan-agan,...
Code:
var
img: array of TImage;
imgutl: Integer;
Numimg: Integer;
activar: Boolean;
procedure TForm1.CaridataClick(Sender: TObject);
var
x: integer;
begin
if jmlhdata.isempty then
begin
activar:=false;
Numimg:=0;
imgutl:=0;
img[Numimg].Free;
end
else
begin
DataModule1.qpasar.First;
for x :=1 to jumlhdata do
begin
activar:=false;
Numimg:=0;
imgutl:=0;
try
imgutl := 1 ;
activar := True;
Numimg := Numimg + 1;
setlength(img, Numimg);
img[Numimg-1]:= TImage.Create(layer);
img[Numimg-1].Picture.LoadFromFile('gambar.bmp');
img[Numimg-1].Parent:=layer;
finally
end;
data.Next;
end;
|
