antp.be forum

Code: Select all

if (BoolNote4=True) and (Note = 4) then
begin
  BoolNote4 = False;
  // et la on ajoute dans une liste le nom du spectateur, la note donnée, et  la critique.
end...

Code: Select all

Critiques Spectateurs :

vernita - le 18/04/2005 - Note : 4/4 
"The Virgin suicides" est un de mes film préférés. Sofia Coppola a réalisé son premier film de manière troublante comme j'aime : la photo est magnifique et les images sont d'une beauté soignée tout comme les jeunes actrices. D'ailleurs Kirsten Dunst, qui d'habitude n'est pas d'une beauté renversante, est magnifique dans ce film. Bref, "The Virgin Suicides" est un film qui ne laisse pas indifférent dans le bon sens du terme : on sort de la projection émerveillé, troublé exactement comme si on venait de regarder un film qui nous aurait coupé du monde le temps d'1 heure 36 minutes.

nini4 - le 14/04/2005 - Note : 3/4 
Magnifique film , brillante realisatrice.Malgrès quelque inconvenient dans le scenario cette realisatrice suivant les traces de son père reussira peut etre un jour a arriver a la cheville de son papa.

fiona06 - le 15/04/2005 - Note : 2/4 
J'ai pas mal hésité entre attribuer deux ou trois étoiles à ce film. J'ai moi aussi était attirée par ce film en entendant les nombreuses critiques élogieuses à son sujet. Je les trouve justifier mais pas pour tout le film... A partir du moment où les parents decident d'enfermer leurs filles, le film traîne en longueur et on attend qu'une chose : quand vont-elles se donner la mort, issue révéler dès le début. Et bien que la première partie du film soit intéressante, je trouve néanmoins que les personnages ne sont pas très attachants. Reste que la bo est mangnifique et la réalisation attractive. A voir sans être indispensable.

LaLorelei - le 26/11/2004 - Note : 1/4 
Bon bon bon... Ben j'ai trouvé ce film fade à tout point de vue, tant au niveau de l'histoire, des personnages, de la réalisation... Trop de questions sont posées sans jamais trouver de réponse. A trop miser sur le "mystère", j'en suis venue à réellement me demander si mystère il y avait... Bref, je n'ai pas aimé.

ElephantK - le 04/02/2005 - Note : 0/4 
Film sans grande originalité, très conventionnel, que certains considèrent comme original alors que ( comme quelqu'un l'a indiqué) l'idée de construire un film autour d'une "ambiance énigmatique sucitée par un suicide de jeunes vierges" a tout simplement été plagiée sur Picnic At Hanging Rock de Peter Weir, qui est à milles lieues au dessus du film de Coppola et le relègue au rang de bien pâle alternative.  Donc je conseillerais à ceux qui osent parler de chef-d'oeuvre concernant Virgin Suicides d'aller voir Picnic At Hanging Rock et ça leur fera certainement revoir leur jugement. ( 0 parceque ce film, en plus d'être moyen, a une réputation non justifiée)

Code: Select all

procedure recupAmazon(Line, title : String);
var
   StartPos: Integer;
   couple, titre, adresse : String;
begin

  listeResultat := TStringList.Create;
  
  StartPos := pos('<a href=/exec/obidos/ASIN/', Line);
  repeat
     delete(Line, 1, StartPos+length('<a href=/exec/obidos/ASIN/')-1);
//ajoute les films
     listeResultat.Add(recupTitle(Line)+'|'+AmazonUrl+copy(Line,0,pos('qid', Line)-1));
     StartPos := pos('http://images-eu.amazon.com/images/P/', Line);
     delete(Line, 1, StartPos-1);
//ligne 63     StartPos := pos('<b>', Line);
//ligne 64     delete(Line, 1, StartPos-1);
     StartPos := pos('<a href=/exec/obidos/ASIN/', Line);
  until (StartPos = 0);

Code: Select all

function recupTitle(Line : String) : String;
var
   title : String;
   StartPos: Integer;
begin
//ligne 251   StartPos := pos('http://images-eu.amazon.com/images/P/', Line);
//ligne 252  delete(Line, 1, StartPos-1);
     StartPos := pos('<b>', Line);
     delete(Line, 1, StartPos-1);
     title := copy(Line, 1, pos('</b></a>', Line)-1);
     HTMLRemoveTags(title);
     title := StringReplace(title, #13#10, '');
     result := title;
end;