1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
function DispDlgFindIDTerrain(const QDC: TToporobotStructure2012;
out QDoMatchExact: boolean;
out QFindWhat: string): boolean;
var
BB: TdlgFindAStation;
begin
Result := False;
BB := TdlgFindAStation.Create(Application);
try
if (BB.Initialiser(QDC)) then // function Initialiser(const QDC: TToporobotStructure2012): boolean;
begin
BB.ShowModal;
if (BB.ModalResult = mrOK) then
begin
QFindWhat := BB.GetFindWhat();
QDoMatchExact := BB.GetDoMatchExact();
//ShowMessage(QFindWhat + ' - ' + BoolToStr(QDoMatchExact, 'Recherche exacte', 'Rechercher une partie'));
Result := True;
end;
end;
finally
BB.Release;
end;
end; |
Partager