Stringgrid Zeileweise abarbeiten

[capo]

Hallo,

ich habe ein Stringgrid in dem stehen URL's und die möchte ich Zeilenweise abarbeiten.
Also nach dem Prinzip:
Rufe URL auf, warte auf das Ergebnis (das Ergebnis ist ein Wort im Quelltext des Webbrowsers) und arbeite dann erst die nächste URL ab.
Wie kann ich das am besten machen?

Gruss vom Capo

[Sir Rufo]

Möchtest du den internen Webbrowser benutzen oder den externen?

[capo]

Ich verwende den EmbeddedWB von http://bsalsa.com/ (also intern)

[EDIT] und wenn dann die letzte Zeile abgearbeitet ist soll er wieder von vorne beginnen.

[capo]

Theoretisch würde es mir auch schon reichen "manuel" eine Zeile weiter zu rücken.
Wenn am Ende angelangt wieder mit der ersten Zeile zu beginnnen.

[Sir Rufo]

Hmm, was ist denn jetzt das Problem?

Das Lesen aus dem StringGrid oder das Abwarten bis der WebBrowser was gemeldet hat?

cu

Oliver

[capo]

Das Problem ist zur nächsten Zeile im Stringgrid zu springen um die URL auszulesen.
Das nächste Problem ist wenn ich am Ende des Stringgrids angekommen bin wieder in der ersten zeile zu beginnen.
Ich will das nicht in einer Schleife machen...weilich auf den Webbrowser warten will.

[DeddyH]

Dann frag doch einfach StringGrid.Row ab, lies die Zelle aus und setze Row einen weiter.

[capo]

genau das ist es ja, mein Problem, wie mache ich das.

[Sir Rufo]

ja, oder so:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ...
    StringGrid1 : TStringGrid;
    ...
  private
    ...
    FHierBinIchGerade : integer; // <--- sollte natürlich im OnCreate noch initialisiert werden (z.B. mit 0)
    ...
    function LeseDieNaechsteZeile : string;
  end;

...

function LeseDieNaechsteZeile : string;
begin
  FHierBinIchGerade := FHierBinIchGerade + 1;
  if 
    ( FHierBinIchGerade > StringGrid1.RowCount )
  then
    FHierBinIchGerade := 0;
  Result := StringGrid1.Cells[ 0, FHierBinIchGerade ];
end;

[toms]

Delphi-Quellcode:

function LeseDieNaechsteZeile(StringGrid: TStringGrid): string;
begin
  with StringGrid do
  begin
    Row := (Row + 1) mod RowCount; // Zur nächsten Zeile springen
    Result := Cells[1, Row];       // Wert von aktueller Zeile / Spalte 1 auslesen
  end;
end;