Liste XML

Réponse acceptée !
Salut,

voici une alternative pour ce genre de fichier "fait en 2minutes":

{ Tu places un TMemo et un TButton sur une fiche et tu complètes comme suit}


implementation

{$R *.dfm}
Uses  StrUtils; {Indispensable pour  PosEx}
{http://www.codyx.org/snippet_recuperer-chaine-inconnue-placee-entre-deux-chaines-connues_334.aspx#1736}
Function  MidStr(Const S, SLeft, SRight:  String): String;
Var 
  PosLeft, PosRight: Integer;
Begin 
  PosLeft := Pos(SLeft, S);
  If  PosLeft < 1 Then  Exit;
  Inc(PosLeft, Length(SLeft));
  PosRight :=  PosEx(SRight, S, PosLeft);
  If PosRight  < 1 Then Exit; 
  Result := Copy(S, PosLeft, PosRight - PosLeft);
End;
 


procedure TForm3.Button1Click(Sender: TObject);
var sl: TStringList;
    I: Integer;
begin
  Memo1.Clear;
  SL := TStringList.Create;
  try
    Memo1.Lines.BeginUpdate;
    SL.LoadFromFile('Genre.xml');
    {De 1 à Count-2 pour ne pas traiter la première et la
     dernière ligne "Balise: <genrelist>"}
    if sl.Count > 2 then // au moins une ligne
      for I := 1 to SL.Count-2 do
        Memo1.Lines.Add(MidStr(SL[I], '"', '"'));
  finally
    Memo1.Lines.EndUpdate;
    SL.Free;
  end;
end;

end.


 
@+
Cirec

---