{****************************************************************************
Jyväskylän Yliopisto
Tietotekniikan laitos
GKOSyksy1999Harjoitustyö

                      MachoMyyrä ja Taistelu Silakkka VIII
                      -------------------------------------


        HS.KHJ
        Näyttää isin pahan naaman

        Tarvittavat tiedostot:
        pyhalla hengella

        version : 0.1
        by : Saku Kukonlehto
        date : 5.11.1999
        comments:
        -tehty perusrunko, jossa on tietokanta, josta voi valita haluamansa
         videon

        version : 0.2
        by : Jorma Makuuni
        date : 28.11.1999
        comments:
        -laitettu näyttämään videon DefaultMediaPlayer:in Komponentin kautta,
         siellä tarkastus onko videota vai ei.


*******************************************************************************}

unit XHiscore;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, jpeg, ExtCtrls;

type
  TFormHS = class(TForm)
    PanelTausta: TPanel;
    ImageTausta: TImage;
    LabelOtsikko: TLabel;
    ScrollBoxHS: TScrollBox;
    MemoHS: TMemo;
    procedure FormClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    F: TextFile;
    JuuriHakemisto:String;
    TiedNimi:String;
    Oletus:String;
    procedure Avaus;
    procedure LataaUudetTiedot;
    procedure Luensullerivin;
  public
    Rivi:string;
    sijoitus:integer;
  end;

var
  FormHS: TFormHS;

implementation

{$R *.DFM}

{tiedoston avaus}
procedure TFormHS.Avaus;
begin
  AssignFile(F,TiedNimi);
end;


procedure TFormHS.LataaUudetTiedot;
begin
//  if TiedOlemassa = False then exit;
  Avaus;
  reset(F);
  LuenSulleRivin;
  CloseFile(F);
end;

{varsinainen metodi joka lukee tai kirjoittaa tiedostoon ja sijoittaa sitten ne
 Stiedot osoitin taulukon osoittamiin paikkoihin}
procedure TFormHS.LuenSulleRivin;
var I:integer;
    ApuRivi:string;
begin
   {alla oleva ossi kay lukemassa savejen kaksi ekaa eli nim ja pissit}
   Rivi:=IntToStr(sijoitus)+'.';
  for I:=0 to 1 do begin
        readln(F, ApuRivi);
        Rivi:=Rivi + '    '+ ApuRivi;
        end;
end;


procedure TFormHS.FormClick(Sender: TObject);
var
        Kikkeli:TSearchRec;
begin
  if FindFirst(Oletus, faAnyFIle, Kikkeli) = 0 then
  begin
          TiedNimi:='.\talletuksia\'+Kikkeli.Name;
          LatAAuuDetTiEDot;
          MemoHs.Lines.Add(rivi);
          inc(sijoitus);

      while FindNext(Kikkeli) = 0 do
      begin
          TiedNimi:='.\talletuksia\'+Kikkeli.Name;
          LatAAuuDetTiEDot;
          MemoHs.Lines.Add(rivi);
          inc(sijoitus);
      end;
      FindClose(Kikkeli);
    end;


end;



procedure TFormHS.FormCreate(Sender: TObject);
begin
        JuuriHakemisto:=GetCurrentDir;
        TiedNimi:='.\talletuksia\pillu.sav';
        Oletus:='.\talletuksia\*.sav';
        sijoitus:=sijoitus+1;

        FormClick(Sender);
end;

procedure TFormHS.FormDestroy(Sender: TObject);
begin
               CHdir(JuuriHakemisto);
end;



end.