1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

unit number_unit;

interface
uses stdctrls,Dialogs,extctrls,Sysutils;

type TKnoten=class(TObject)
        nummer:integer;
        next:TKnoten;
        constructor Create(s:integer);
     end;

type TListe=class(TObject)
      anf:TKnoten;
      Constructor Create;
     procedure lifopush;
     procedure ausgabe;
     procedure add;
     procedure multi;
     end;

implementation

Constructor TKnoten.Create(s:integer);
begin
  nummer:=0;next:=nil;
end;

Constructor Tliste.Create;
begin
  anf:=nil;
end;


procedure lifopush(zahl:string);
var neu: TKnoten;
    i: integer;
begin
 for i:= 1 to length(zahl) do
  begin
   new(neu);
   neu.nummer:=copy(zahl,i,length(zahl));
   neu.next:=anf;
   anf:=neu;
  end;
end;

procedure ausgabe;
begin
counter:= 0;
 while anfang <> nil do
  zahl:= zahl + inttostr(neu.nummer);
end;

procedure add;
begin

end;

procedure multi;
begin

end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure lifopush(zahl:string);
var neu: TKnoten;
    i: integer;
begin
 for i:= 1 to length(zahl) do
  begin
   new(neu);
   neu.nummer:=copy(zahl,i,length(zahl));
   neu.next:=anf;
   anf:=neu;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure lifopush(zahl:string);
var neu: TKnoten;
    i: integer;
begin
 for i:= 1 to length(zahl) do
  begin
   new(neu);
   neu.nummer:=copy(zahl,i,1);
   neu.next:=anf;
   anf:=neu;
  end;
end;					

1:

procedure TMyClass.MyProd					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Constructor TmyClass.Create;
begin
 inherited Create;//eventuell mit Parameterliste
 //eigener Code
end;

destructor TmyClass.destroy;
begin
 //hier selbst erzeugte Strukturen freigeben.
 inhreited destroy;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:

unit number_unit;

interface
uses stdctrls,Dialogs,extctrls,Sysutils;

type TKnoten=class(TObject)
        nummer:integer;
        next:TKnoten;
        constructor Create(s:integer);
     end;

 type TListe=class(TObject)
      anf:TKnoten;
      Constructor Create;
      destructor destroy;
     procedure lifopush(zahl:string);
     function ausgabe:string;
     procedure add;
     procedure multi;
     end;

implementation

Constructor TKnoten.Create(s:integer);
begin
  nummer:=s;next:=nil;
  //war wohl so gemeint, oder?
end;

Constructor Tliste.Create;
begin
  inherited Create;
  anf:=nil;
end;





procedure Tliste.lifopush(zahl:string);
var neu: TKnoten;
    i: integer;
begin
 for i:= 1 to length(zahl) do
  begin
   new(neu);
   // ist mir gereade aufgefallen,
   // hier müsste noch
   //neu:=TKnoten.Create stehen
   //neu.nummer:=copy(zahl,i,length(zahl));
   neu:=TKnoten.create(strtoint(zahl[i]));
   neu.next:=anf;
   anf:=neu;
  end;
end;

function Tliste.ausgabe:string;
var
zahl:string;//einbischen verwirrend besser zahlstr nennen
begin
 //counter:= 0; //was der soll weis ich nicht ist zur Zeit ohne Funktion
 zahl:='';
 while anfang <> nil do
  zahl:= zahl + inttostr(neu.nummer);
 result:=zahl; // durch die Deklaration von ausgabe als function darf du hier result verwenden.
end;

destructor Tliste.destroy;
var
alt1,alt2:TKnoten;
begin
 alt1:=neu;
 while alt1<>nil do
 begin
  alt2:=alt1;
  alt1:=alt1.next;
  alt2.free;//Speicher des Objectes freigeben;
  dispose(alt2); //Speicher der ObjectReferenz freigeben;
 end;
 inherited destroy;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure Tliste.lifopush(zahl:string);
var neu: TKnoten;
    i: integer;
begin
 for i:= 1 to length(zahl) do
  begin
   new(neu);
   neu:=TKnoten.create(strtoint(zahl[i]));
   neu.nummer:=strtoint(copy(zahl,i,1));
   neu.next:=anf;
   anf:=neu;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure Tliste.lifopush(zahl:string);
var neu: TKnoten;
    i: integer;
    buffstr:string;
    buffint:integer;
begin
 for i:= 1 to length(zahl) do
  begin
   new(neu);
   buffstr:=zahl[i];
   buffint:=strtoint(buffstr);
   neu:=TKnoten.create(buffint);
   neu.nummer:=strtoint(copy(zahl,i,1));
   neu.next:=anf;
   anf:=neu;
  end;
end;					

1:
2:
3:
4:
5:
6:

type PKnoten=^TKnoten
     TKnoten=class(TObject)
        nummer:integer;
        next:PKnoten;
        constructor Create(s:integer);
     end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure someProc;
var
aknoten:PKnoten;
begin
 new(aknoten);// Speicher für ObjectReferenz wird reserviert;
 aknoten^:=TKnoten.Create(4); //ObjectInstanz wird erzeugt;
 aknoten^.next:=nil; //Zugrift auf das Object.
 aknoten^.free; //objectinstanz wird gelöscht ->Speicherfreigabe
 dispose(aknoten); //Speicher für ObjectReferenz wird freigegeben
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:

unit form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Spin, StdCtrls, ExtCtrls, number_unit;

type
  TForm1 = class(TForm)
    NumEd: TEdit;
    Einbtn: TButton;
    Ausbtn: TButton;
    addbtn: TButton;
    multibtn: TButton;
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label2: TLabel;
    procedure EinbtnClick(Sender: TObject);
    procedure AusbtnClick(Sender: TObject);
    procedure addbtnClick(Sender: TObject);
    procedure multibtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  bignum : Tliste;
implementation

{$R *.dfm}

procedure TForm1.EinbtnClick(Sender: TObject);
begin
 bignum.lifopush(numed.text);
end;

procedure TForm1.AusbtnClick(Sender: TObject);
begin
 bignum.ausgabe;
end;

procedure TForm1.addbtnClick(Sender: TObject);
begin
// bignum.add;
end;

procedure TForm1.multibtnClick(Sender: TObject);
begin
// bignum.multi;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
bignum:= Tliste.create;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

unit number_unit;

 
interface  
uses stdctrls,Dialogs,extctrls,Sysutils;  


type TKnoten=class(TObject)  
        nummer:integer;  
        next:TKnoten;
        constructor Create(s:integer);  
     end;  


type TListe=class(TObject)
       anf:TKnoten;
       Constructor Create;
       destructor destroy;override;
        procedure lifopush(zahl:string);
        function ausgabe:string;
//      procedure add;
//      procedure multi;
     end;  
 var neu: TKnoten;
 
implementation  

 
Constructor TKnoten.Create(s:integer);  
begin  
  nummer:=s;next:=nil;

end;  

Constructor Tliste.Create;
begin
  inherited Create;
  anf:=nil;
end;


procedure Tliste.lifopush(zahl:string);
var i: integer;
begin
 for i:= 1 to length(zahl) do
  begin
   neu:=TKnoten.create(strtoint(zahl[i]));
   neu.nummer:=strtoint(copy(zahl,i,1));
   neu.next:=anf;
   anf:=neu;
  end;
end;

function Tliste.ausgabe:string;
var zahlstr:string;
begin
 //counter:= 0;
 zahlstr:='';
 while anf <> nil do
  zahlstr:= zahlstr + inttostr(neu.nummer);
 result:=zahlstr;
 panel1.caption:=zahlstr;     // [Error] number_unit.pas(62): Undeclared identifier: 'panel1';-)
end;

destructor Tliste.destroy;
var alt1,alt2:TKnoten;
begin
 alt1:=neu;
 while alt1<>nil do
 begin
  alt2:=alt1;
  alt1:=alt1.next;
  alt2.free;
 end;
 inherited destroy;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:

implementation

uses
  form;

// ...

  Form1.Panel1. ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

unit form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Spin, StdCtrls, ExtCtrls, number_unit;

type
  TForm1 = class(TForm)
    ...
  end;

var
  Form1: TForm1;
  bignum : Tliste;
implementation

{$R *.dfm}

...

procedure TForm1.AusbtnClick(Sender: TObject); //Ich vermute dieser Button soll die Ausgabe starten.
begin
 form1.panel1.caption:=bignum.ausgabe;
end;
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

unit number_unit;

 
interface  
uses stdctrls,Dialogs,extctrls,Sysutils;  


type TKnoten=class(TObject)  
        ... 
     end;  


type TListe=class(TObject)
       ...
     end;  
 var neu: TKnoten;
 
implementation  

...

function Tliste.ausgabe:string;
var zahlstr:string;
begin
 //counter:= 0;
 zahlstr:='';
 while anf <> nil do
  zahlstr:= zahlstr + inttostr(neu.nummer);
 result:=zahlstr;
 //panel1.caption:=zahlstr;     // [Error] number_unit.pas(62): Undeclared identifier: 'panel1';-)
end;

...