OnTime Exepction ?

[Klaus01]

Hallo,

pos ist bei Dir eine globale Variable?
Wo setzt Du diese?

Delphi-Quellcode:

if LoginStatus then 
  begin 
    if pos >= 0 and pos <= ListView.Items.count -1 then // <- neu
      begin  
        ID := ListView1.Items[Pos].SubItems[14]; 
        Href := Form1.WebBrowser1.OleObject. 
    ....

Grüße
Klaus

[nitschchedu]

Also das sind 3 Sachen:

1: Ich drücke den Button

Delphi-Quellcode:

procedure TfrmBot.Button2Click(Sender: TObject);
var
   ID: String;
begin
  [u]Pos := 0;[/u]

  if ListView1.Items.Count = 0 then
  begin
     ShowMessage('Bitte erstmal was in die Liste eintragen!');
     Exit;
  end;

  ID := ListView1.Items[Pos].SubItems[14];

  Form1.WebBrowser1.Navigate(http://www.google.de/search.php?id=' + 
       ID + '&suche=place');
end;

So das "Form1.WebBrowser1.Navigate(http://www.google.de/search.php?id=' +
ID + '&suche=place');" ruft eine Seite auf.

2: Nun warte ich bis die Seite Fertig ist.

Delphi-Quellcode:

procedure TfrmBot.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Form1.Edit1.Text := URL;
  Form1.StatusBar1.SimpleText := URL+' erfolgreich geladen';
  Timer1.Enabled := True;
end;

Mit "Timer1.Enabled := True;" Schalte ich es an (Da noch Frames mit geladen werden Warte ich 3 Sekunden).

3: Siehe oben das OnTime.

[Gruber_Hans_12345]

ok, und wo trägst du das element in die liste ein?

ich glaube es reicht nicht aus, das du die 15 spalten anlegst, du mußt diese auch bei jedem Element befüllen.

[nitschchedu]

Also so langsam haben wir fast den ganzen Quellcode .

Delphi-Quellcode:

procedure TfrmBot.btAddClick(Sender: TObject);
var
 ListItem: TListItem;
begin
  ListItem := ListView1.Items.Add;
  ListItem.Caption := edR.Text;
  ListItem.SubItems.Add(ed1.Text);
  ListItem.SubItems.Add(ed2.Text);
  ListItem.SubItems.Add(ed3.Text);
  ListItem.SubItems.Add(ed4.Text);
  ListItem.SubItems.Add(ed5.Text);
  ListItem.SubItems.Add(ed6.Text);
  ListItem.SubItems.Add(ed7.Text);
  ListItem.SubItems.Add(ed8.Text);
  ListItem.SubItems.Add(ed9.Text);
  ListItem.SubItems.Add(ed10.Text);
  ListItem.SubItems.Add(ed11.Text);
  ListItem.SubItems.Add(ed12.Text);
  ListItem.SubItems.Add(ed13.Text);
  ListItem.SubItems.Add(ed14.Text);
  ListItem.SubItems.Add(ed15.Text);
end;

Ich muss dazu noch sagen das dieser Effekt nur im OnTime oder im WebBrowser1DocumentComplete, so wie ich das jetzt festgestellt habe.

[Gruber_Hans_12345]

ich vermute mal, du überschreibst dir noch irgendwo die pos, kann es sein, das du pos noch in einem andrem stückchen code verwendest?

(und ich würde auch einen anderen variablen namen verwenden, pos ist immerhin eine delphi funktion)

[Luckie]

Der Variablenname pos ist sowieso ungünstig, da es eine gleichnamige Funktion in der Unit SysUtils gibt.

[nitschchedu]

Später wollte ich es noch hochzählen. Habe die Variabel mal unbenannt in lePos. Aber immer noch der Fehler.

[Gruber_Hans_12345]

bist du 100% sicher, das du diese variable sonst niergends veränderst?

Kontrolliere es nochmal mit dem Debugger, das lePos sicher auf 0 steht, wenn der Timer augelöst wird.

ansonsten poste einfach mal den gesamten code, der fehler müsste in einem noch nicht geposteten stückchen code liegen.

[nitschchedu]

Habe das hier gepostet da ich beim Debugen nichts gefunden habe. Der wert ist 0 wenn ich an die Stelle komme.

Und wenn ich ListView1.Items[0].SubItems[14]; das mache schmiert er auch ab. Kann es sein das ich keinen zugrief auf ListView habe ?

[Gruber_Hans_12345]

dann gib dir einfach mal die zwei werte manuell aus ... (kurz vor der zeile wo er die AV reißt)

Delphi-Quellcode:

ShowMessage('Items.Count : '+IntToStr(ListView1.Items.Count));
ShowMessage('SubItems.Count : 'IntToStr(ListView1.Items[0].SubItems.Count));