ok,
im Forum habe ich schon Antworten bekommen nur schaffe ich es noch nicht die lösung in das script einzubinden.
Das problem:
Testcomplte erstellt eine Testroutine um eine Anweundung und verschiede Release zu testen. Nun ist es der fall das bei verschiedenen Datenbanken einige Comboboxitems den Index wechseln (Benutzerfreundlichkeit) oder einege garnicht angezeigt werden und ich nicht für jeden Fall einen neunen Test schreiben kann.
Code:
if Aliases.anwendugnsname.framexYheader.xxxx.xxxxx.ComboboxA.witem[18] = 'Alpha' then
begin
//Selects the 'Alpha' item of the 'ComboboxA' combo box.
Aliases.anwendugnsname.framexYheader.xxxx.xxxxx.ComboboxA.ClickItem('Alpha');
end
else
begin
//Selects the 'Beta' item of the 'cbxOperation' combo box.
Aliases.anwendugnsname.framexYheader.xxxx.xxxxx.ComboboxA.ClickItem('Beta');
end;
Das script verwendet in der IF
Query ".witem[18] = 'Alpha' then" aber der Index verändert sich je nach Datenbank.
Hier noch die Lösung (die bei mir noch nicht FUnktioniert) die mir im Testcompleteforum vergeschlagen wurde:
Code:
function SelecListValue(ObjectLIstBox: AliasObj; StrToSelect: string): boolean;
var
i;
being
for i:= 0 (ObjectlistBox.wItem[i] = StrToSelect) then
being
ObjectListBox.Clickitem(i);
result := true;
break
end else
result :=false
end;
end;
procedure Test;
begin
SelectListValue(YourMappedCombo,'yourStringInTheCombo');
end;
MfG
