Döngüde sıra altama

[Altıner]

Merhabalar;

Döngü ile web siteden verileri alıyorum. Fakat sıralamada atlama oluyor bu sorunu nasıl çözebilirim?

Web sitede veriler şu şekildi:
Link - Link - Link - Link
Title - Title - Title - Title

Döngü ile verileri arılken önce linkler geliyor sonra titleler geliyor. Sırasıyla link title, link title olarak almayı nasıl sağlarım?

        
      HrefClass := IDoc.Body.All.Tags('a');
        SpanClass := IDoc.Body.All.Tags('span');
        LinkRow := Integer(IDoc.Links.Length);
        for A := 0 to Pred(LinkRow) - 1 do

        begin
          HrefName := HrefClass.Item(A);
          SpanName := SpanClass.Item(A);
          if SameText(HrefName.ClassName, 'a-link-normal') then // Link
          begin
            Url := HrefName.Href;
            Showmessage(Url);
          end;
          if SameText(SpanName.ClassName, 'a-text-normal') then // Title
          begin
            Showmessage(SpanName.InnerText);
          end;
        end;

[endmuh]

Selamlar gelen verileri diziye aktarıp orada istediğin sıralamasını yapabilirsin.
aşağıda örnek linkini gönderiyorum.
https://youtu.be/GAMMd2dvTa4

[serdar]

Merhaba
Link,title,link,title... diye gidiyorsa tek ve çift sira mantğını kullanabılırsın

for A := 0 to Pred(LinkRow) - 1 do
begin
 if A mod 2 == 0 then //title ise
 begin
   -----
 end
 else begin //link ise
   ----
 end;  
end

[RAD Coder]

@@serdar,

if A mod 2 == 0 then //title ise

satırı
Şu şekilde olmalı;

if (A mod 2) = 0 then //title ise

[serdar]

(04-11-2022, Saat: 09:04)RAD Coder Adlı Kullanıcıdan Alıntı: @@serdar,

if A mod 2 == 0 then //title ise

satırı
Şu şekilde olmalı;

if (A mod 2) = 0 then //title ise

Haklisiniz parantezleri unuttum