PtSetRecord

begin アイオン 掲示板
Close;
commandtext:='select * from '+TableName;
prepared;
open;
Result:=true;
end;
except
on exception do
Result:=false;
end;