[delphi]non riesco proprio a capire questo codice.

[Tonino9191]

Salve,ho iniziato a leggere un libro su delphi 7 ma mi sono proprio bloccato su questo codice:

tybe
Tdate = class
month,day,year: integer;
procedure setvalue (m,d, y:integer);
function LeapYear: Boolean;
end;

procedure Tdate.setvalue (m,d,y:integer);
month := m;
day := d;
year : y;
end

mi fermo qui....perche voglio sapere dove sce quel TDate???non ci sto capneod nulla per favore qualcuno mi puo chiarire le idee??

[mondobimbi]

Delphi è basato su object pascal e implementa le classi.
In questo frammento di codice stai dichiarando un nuovo tipo di dato, una classe, che hai chiamato TDate (borland fa precedere i nomi di classe dalla lettere T, ma non è essenziale), i suoi membri e i suoi metodi.
Dopo la end di type stai definendo un metodo di questa classe.

Hai però diversi errori di trascrizione nel codice che hai postato.

ciao
sergio

[Tonino9191]

capito pero non riusco a far funzionara il codice qualcuno mi puo dire esattamente come fare?

[Tonino9191]

allora questo sarebbe il nome del from

TDate = class

esatto??

pero questa procedura da dove la prendo??

procedure Tdate.setvalue (m,d,y:integer);

[mondobimbi]

no, non è un TForm è un tipo definito dall'utente che serve per semplificare la gestione delle date.

Quando crei un progetto ti viene creato automaticamente il form principale dove già puoi inserire i componenti visuali.

ciao
sergio

[Tonino9191]

allora ok sto cominciando a capiero...

pero se io metto



TDate = class

in type da errore perche??

poi questa procedura con quale componente la creo??

procedure Tdate.setvalue (m,d,y:integer);

[Tonino9191]

ok capito come dichiarare la classe ora questo codice come lo metto?

procedure Tdate.setvalue (m,d,y:integer);

[mondobimbi]

in object pascal una unit è suddivisa in due parti, una prima parta dove ci sono le dichiarazioni (che in pascal si chiama interface) ed una seconda parte dove ci sono le implementazioni.
Guarda questo semplice esempio

unit mia_unit;


interface

uses
  Classes, SysUtils;


type

      TMiaClasse = class
      public

        constructor Create ;
        destructor Destroy;
        

      private

		procedure mia_procedura ;

    end;


implementation

uses
	;

constructor TMiaClasse.Create ;
begin

end;

destructor TMiaClasse.Destroy;
begin
end;

procedure TMiaClasse.SetFileName ;
begin
end;

end.

[Tonino9191]

ecco il mio codice:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TDate = class
  Month, Day, Year: integer;
  procedure SetValue (m, d, y: integer); <------------ errore perche?
  function LeapYear:boolean;
  end;
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.
procedure TDate.setvalue: (m, d, y: integ 

[mondobimbi]

devi spostare la procedura prima della parola chiave end. ( end seguito da punto, che indica la fine della unità) e dopo la parola imlementation (che identifica l'inizio delle definizione delle funzioni e delle procedure)

...
implementation

...
procedure Tdate.setvalue (m,d,y:integer);
begin
  month := m;
  day := d;
  year : y;
end;

...

end.