Delphiscript ListboxItems suchen

[Innovation]

Hallo,

ich arbeite mit dem Programm Testcomplete (zum automatiesieren von Testabläufen).
Dort bin ich auf ein Problem gestoßen für das ich Delphiscript benutzen möchte.
Ich bin noch am Anfang was das Programmieren angeht.
Hier mein Problem ( der Link führt zu einem Forum für Testcomplete wo ich mein Problem schon beschrieben habe, aber eine Atwort bekommen habe für Jscript)https://community.smartbear.com/t5/T...133672#U133672

Wie würdet ihr das Problem lösen oder benutz hier sogar jemand Testcomplete mit Delphiscript?

MfG

[hoika]

Hallo,
ich habe das Problem auch nach mehrmaligen Lesen nicht verstanden ...

[Innovation]

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 :)

[Klaus01]

Hallo,

Du erstellst Testfälle/Testcases in TestComplete um eine Gui zu testen - richtig?

Die Sprache die TestComplete als Script verwendet ist das PascalScript?

Diesen Konstrukt

Delphi-Quellcode:

for i:= 0 (ObjectlistBox.wItem[i] = StrToSelect) then

gibt es
meines Wissens nicht in Pascal/Delphi.

Delphi-Quellcode:

for i:= 0 to ObjectListBox.wItems.count -1 do
  if ObjectListBox.wItem[i] = StrToSelect then
    begin
    end;

Grüße
Klaus

[nahpets]

Eventuell könnte auch sowas funktionieren:

Delphi-Quellcode:

function SelectListValue(ObjectLIstBox: AliasObj; StrToSelect: string): boolean;
var
  i : Integer;
being
  i := ObjectlistBox.IndexOf(StrToSelect);
  result := i > -1;
  if result then ObjectListBox.Clickitem(i);
end;

procedure Test;
begin
  SelectListValue(YourMappedCombo,'yourStringInTheCombo');
end;

@Klaus: Neben Pascal-Script gibt es auch noch DelphiScript

Ich gehe mal ganz naiv davon aus, dass man da einfach erstmal mit der gewohnten Delphi-Syntax rangehen kann, wenn dann beim Kompilieren und/oder Ausführen ein Syntaxfehler ausgegeben wird, muss man halt nach der korrekten Syntax für DelphiScript suchen.