Aktív témák

• #21 rdi veterán khalox #20

  2003-05-07 20:28:16 #21

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  rdi

  veterán

  válasz khalox #20 üzenetére

  Off:Húúúú ezt nekem még kedvems sincs elolvasni. Ezekre a OOPokra jellemzően jó sok sort generál automatikusan
  Mire azon keresztül rágom magam, elmegy a kedvem a programozástól.
  Na megyek php-ét tanulni.
  
  

• #20 khalox őstag khalox #19

  2003-05-06 15:45:43 #20

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  khalox

  őstag

  válasz khalox #19 üzenetére

  ...meg a mem.felszabadító parancs is mintha más lenne...

• #18 gLes őstag khalox #15

  2003-05-06 15:43:20 #18

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  gLes

  őstag

  válasz khalox #15 üzenetére

  Bááááh gusssztustalan! Ilyeneket irogattam az elmúlt hónapban és már nagyon tele van vele a tö....bakancsom!!!

• #17 gLes őstag khalox #12

  2003-05-06 15:42:08 #17

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  gLes

  őstag

  válasz khalox #12 üzenetére

  Mit TP? Hát nem Delphiről szól a téma?

• #16 khalox őstag khalox #15

  2003-05-06 15:38:19 #16

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  khalox

  őstag

  válasz khalox #15 üzenetére

  Ja meg persze így kapásból nem is működik, pusztán nevelő, tanító célzattal. Hogy én milyen rendes vagyok, ehh.

• #15 khalox őstag khalox #14

  2003-05-06 15:37:01 #15

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  khalox

  őstag

  válasz khalox #14 üzenetére

  És mivel az utóbbi pár hozzászólásom OFF volt, ezért megbüntettem magam és nyomtam egy COPY-PASTE-et... hogy valami legyen a témához is (bár a szóközöket tudom lenyeli, valamit dolgozzon is vele...):
  
  Unit Lista;
  
  Interface
  Type
  Elemtip = ??? ; (* a lista elemtipusa *)
  Tipus = Pointer;
  
  { A lista adattipus muveletei: }
  Procedure Letesit(Var L : Tipus);
  Procedure Uresit(Var L : Tipus);
  Function Urese(L : Tipus) : Boolean;
  Function Elejen(L : Tipus) : Boolean;
  Function Vegen(L : Tipus) : Boolean;
  Procedure Elejere(Var L : Tipus);
  Procedure Vegere(Var L : Tipus);
  Procedure Tovabb(Var L : Tipus);
  Procedure Kiolvas( L : Tipus;
  Var X : Elemtip);
  Procedure Modosit(Var L : Tipus;
  Y : Elemtip);
  Procedure Bovit(Var L : Tipus;
  Y : Elemtip);
  Procedure Torol(Var L : Tipus);
  Procedure Kapcsol(Var L1,L2 : Tipus);
  
  Implementation
  Type
  Lanctip = ^Cella;
  Cella = Record
  adat : Elemtip;
  csat : Lanctip
  End;
  
  Reptip = Record (* az adattipus reprezentalo tipusa *)
  lab, kurzor : Lanctip
  End;
  
  Procedure Letesit(Var L : Tipus);
  Var Lr: ^Reptip Absolute L;
  Begin
  New(Lr);
  With Lr^ Do
  Begin
  New(lab);
  lab^.csat := lab; kurzor := lab
  End
  End (* Letesit *) ;
  
  Procedure Uresit(Var L : Tipus);
  Var Lr: ^Reptip Absolute L;
  Begin
  With Lr^ Do
  Begin
  lab := lab^.csat;
  kurzor:= lab^.csat;
  While kurzor <> lab Do
  Begin
  lab^.csat:= kurzor^.csat;
  Dispose(kurzor);
  kurzor := lab^.csat;
  End;
  End;
  End (* Uresit *) ;
  
  Function Urese(L : Tipus) : Boolean;
  Var Lr: ^Reptip Absolute L;
  Begin
  Urese := Lr^.lab = Lr^.lab^.csat
  End (* Urese *) ;
  
  Function Vegen(L : Tipus) : Boolean;
  Var Lr: ^Reptip Absolute L;
  Begin
  Vegen := Lr^.kurzor = Lr^.lab
  End (* Vegen *) ;
  
  Function Elejen(L : Tipus) : Boolean;
  Var Lr: ^Reptip Absolute L;
  Begin
  Elejen := Lr^.kurzor = Lr^.lab^.csat
  End (* Elejen *) ;
  
  Procedure Elejere(Var L : Tipus);
  Var Lr: ^Reptip Absolute L;
  Begin
  Lr^.kurzor := Lr^.lab^.csat
  End (* Elejere *) ;
  
  Procedure Vegere(Var L : Tipus);
  Var Lr: ^Reptip Absolute L;
  Begin
  Lr^.kurzor := Lr^.lab
  End (* Vegere *) ;
  
  Procedure Tovabb(Var L : Tipus);
  Var Lr: ^Reptip Absolute L;
  Begin
  If Lr^.kurzor <> Lr^.lab
  Then Lr^.kurzor := Lr^.kurzor^.csat
  End (* Tovabb *) ;
  
  Procedure Kiolvas(L : Tipus; Var X : Elemtip);
  Var Lr: ^Reptip Absolute L;
  Begin
  If Lr^.kurzor <> Lr^.lab Then
  X := Lr^.kurzor^.csat^.adat
  End (* Kiolvas *) ;
  
  Procedure Modosit(Var L : Tipus; Y : Elemtip);
  Var Lr: ^Reptip Absolute L;
  Begin
  If Lr^.kurzor <> Lr^.lab Then
  Lr^.kurzor^.csat^.adat := Y
  End (* Modosit *) ;
  
  Procedure Bovit(Var L : Tipus; Y : Elemtip);
  Var Lr: ^Reptip Absolute L;
  ujcella : Lanctip;
  Begin
  New(ujcella);
  With Lr^ Do
  Begin
  ujcella^.adat := Y; ujcella^.csat := kurzor^.csat;
  kurzor^.csat := ujcella;
  If kurzor = lab Then
  lab := ujcella;
  End
  End (* Bovit *) ;
  
  Procedure Torol(Var L : Tipus);
  Var Lr: ^Reptip Absolute L;
  Var P : Lanctip;
  Begin
  With Lr^ Do
  If kurzor <> lab Then
  Begin
  If kurzor^.csat = lab Then
  lab := kurzor;
  P := kurzor^.csat;
  kurzor^.csat := P^.csat;
  Dispose(P);
  End
  End (* Torol *) ;
  
  Procedure Kapcsol(Var L1, L2 : Tipus);
  Var L1r: ^Reptip Absolute L1; L2r: ^Reptip Absolute L2;
  Var P,Fej2 : Lanctip;
  Begin
  If (L1r^.lab <> L2r^.lab) And (L2r^.kurzor <> L2r^.lab^.csat) Then
  Begin
  P := L1r^.kurzor^.csat;
  Fej2:= L2r^.lab^.csat;
  L1r^.kurzor^.csat := Fej2^.csat;
  Fej2^.csat:= L2r^.kurzor^.csat;
  L2r^.kurzor^.csat := P;
  If L1r^.kurzor = L1r^.lab Then
  L1r^.lab := L2r^.kurzor;
  If Fej2 = Fej2^.csat Then
  L2r^.lab := Fej2;
  L2r^.kurzor :=Fej2 ;
  End
  End (* Kapcsol *) ;
  
  End (* Lista *) .

• #12 khalox őstag khalox #11

  2003-05-06 15:24:39 #12

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  khalox

  őstag

  válasz khalox #11 üzenetére

  amúgy meg megnézem, hogy mondjuk Turbo Pascalban milyen Formokra dobálod a milyen komponenseket...

Aktív témák