Læs linje fra stringlist fra et bestemt punkt

hvis du nu har et lille stykke tekst som er sat op på den måde ville det være rart at se det...

er det sådan her ca:

;type *(* = noget tekst den skal ignorere)
7


Det som der skal ud



;type *(* = noget tekst den skal ignorere)
7


Noget andet som skal med ud

så kunne det ihvertefald se sådan her ud:


procedure TForm1.Button1Click(Sender: TObject);
var
  st, Result        : tstringlist;
  i                : integer;
begin
  st := tstringlist.Create;
  st.LoadFromFile('test.txt');

  Result := tstringlist.Create;

  for I := 0 to st.Count - 1 do
  begin
    if pos(';type', st.Strings[I]) <> 0 then // Fandt ;type
      if I + 4 <= st.Count - 1 then    // Sikker på at der er tekst nok
        Result.Add(st.Strings[I + 4]);
  end;

  memo1.Lines := Result;

  Result.Free;
  st.Free;
end;


Men jeg ved ikke om det kun er hvis der er et 7 tal under type at den skal ud, men det må du jo lige finde ud af.

Tjaa... Det ser godt ud, men der mangler vist stadig noget med 7 tallet... Anyway, her plukker jeg lige det tekst ud som jeg snakker om:

;type************DRIVER - JARNO TRULLI************************
7
;fName
2
Jarno Trulli
;FAge
3
26
;fNationality
4
7

Det jeg så gerne vil have programmet til er, at:
1. Lede hele filen igennem og når den så finder denne linje (Den skal være ligeglad med alle stjernerne og "DRIVER - JARNO TRULLI":
;type************DRIVER - JARNO TRULLI************************
7

2. Derfra skal jeg så kunne fortælle den, at den skal gå 2 linjer ned fra 7 og plukke den linje ud og gå 4 linjer ned og plukke den ud osv.

okay nu tager den kun dem med type 7:



procedure TForm1.Button1Click(Sender: TObject);
var
  st, Result        : tstringlist;
  i                : integer;
begin
  st := tstringlist.Create;
  st.LoadFromFile('test.txt');

  Result := tstringlist.Create;

  for I := 0 to st.Count - 1 do
  begin
    if pos(';type', st.Strings[I]) <> 0 then // Fandt ;type
      if I + 4 <= st.Count - 1 then    // Sikker på at der er tekst nok
        if st.Strings[I + 1] = '7' then
          Result.Add(st.Strings[I + 4]);
  end;

  memo1.Lines := Result;

  Result.Free;
  st.Free;
end;

Der var den... Mange tak :)