procedure TfrmMain.bLocateDataClick(Sender: TObject);
var
lPrompt, lDefaultValue, TaskName : string;

begin
try
LPrompt :='輸入鄉鎮市區地段號:';
LDefaultValue := eLand_Locate.Text;
InputQuery('資料查詢', LPrompt, LDefaultValue,
procedure(const AResult: TModalResult; const AValues: array of string)
begin
if AResult = mrOk then
TaskName := AValues[0]
else
TaskName := '';
if not (TaskName.Trim = '') then
begin
// showMessage(TaskName );
qLandMaster.Locate('Land_locate', TaskName , [loPartialKey]);

if not qLandMaster.Eof then
begin
// bAttachFile.OnClick(self);
TabControl1.ActiveTab := TabItem2 ;
listViewSelect := -1; // 無法定位
end
else
ShowMessage('找不到資料,請再輸入正確的資料');
end;
end);
SwipeLeft ;
except
on e: Exception do
begin
SHowMessage(e.Message);
end;
end;
end;
==============================================

procedure TfrmMain.bDeleteBlobClick(Sender: TObject);
var
NewLine, NowRecord: string;
sw: Boolean;
begin
NewLine := #$D#$A;
if ListView2.Selected <> nil then
NowRecord := (ListView2.Selected.Objects.FindObject('photo')
as TListItemText).Text
else
begin
ShowMessage('點選要刪除的資料');
exit;
end;

MessageDlg('確定要刪除此筆資料嗎？' NewLine '<' trim(NowRecord) '>', System.UITypes.TMsgDlgType.mtConfirmation ,
[
System.UITypes.TMsgDlgBtn.mbYes,
System.UITypes.TMsgDlgBtn.mbNo ], 0,
procedure(const AResult: TModalResult)
begin
if AResult = mrYES then
begin
sw := fdDetailBlob.Locate('BlobFileDescription', NowRecord, [loPartialKey]);
if sw then
begin
fdDetailBlob.Delete; //要同時異動二個地方
fdDetailBlob.Refresh ;
ListView2.Items.Delete(ListView2.Selected.Index);
if CheckBox3.IsChecked then
CheckBox3.IsChecked := not CheckBox3.IsChecked ;
end
end
else
if AResult = mrNo then
exit ;
end);
end;