去重对象列表
<h1>输入</h1>
<table>
<thead>
<tr>
<th></th>
</tr>
</thead>
<tbody>
<tr>
<td>列表</td>
<td>【TList<Object>】</td>
</tr>
</tbody>
</table>
<h1>输出</h1>
<table>
<thead>
<tr>
<th></th>
</tr>
</thead>
<tbody>
<tr>
<td>个数</td>
<td>【Integer】</td>
</tr>
</tbody>
</table>
<h1>示例/演示</h1>
<p>function main_9BFE6342758B432AABE71B557F028F94(var argument1{outObject}: TObject): String;
var
bFunctionSuccess: Boolean;
sFunctionError: string;
tmpCount14582190: Integer;
_variable1{ele}: TObject;
_variable2{list}: TObject;
_variable3{son}: TObject;
_variable4{sonItem}: TObject;
begin
bFunctionSuccess := False;
sFunctionError := '';
_variable1 := nil;
_variable2 := nil;
_variable3 := nil;
_variable4 := nil;
Result := '';
Trace('[debug](Execute Line): 22');
SetRPALastError('');
bFunctionSuccess := RPAProgrammingObjectListDeduplication(nil, tmpCount14582190);
if (not (False)) and (bFunctionSuccess = False) then
begin
Trace('[debug](Error Line): 22');
SetTargetLVD('严重', '去重对象列表', GetRPALastErrorString()); Exit;
end;
if (bFunctionSuccess = False) and (GetRPALastErrorString() = '') then
SetRPALastError('去重对象列表');
end;</p>