Bezeichner redefiniert + Deklaration?

[WInfo]

Moin, Moin, Bericender

wird das ganze etwas für die Schule oder sollte da ein praktischer Hintergrund vorhanden sein? Im zweiten Falle würde ich Dir DRINGEND zu einer Datenbank raten, da du so viel flexibler Arbeiten kannst.

[Bericender]

Wird etwas für die Schule und hab über Weihnachten nichts dran gemacht so das mir viele Sachen erstmal nicht mehr eingefallen sind :D (Ferien halt). Meine beiden Units sehen jetzt übrigens wie folgt aus ;)

Delphi-Quellcode:

unit uUnit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
        Firma.neu;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
        Firma.oeffnen(Edit1,2,3,4:TEdit);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
        Firma.vor(Edit1,2,3,4:TEdit);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
        Firma.zurueck(Edit1,2,3,4:TEdit);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
        Firma.speichern(Edit1,2,3,4:TEdit);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
        Firma.schliessen;
end;

end.

Delphi-Quellcode:

unit uUnit2;                                             

interface

type
  TEinzelteile = record
        TNummer,Preis:integer;
        Bezeichnung,Verwendung:string[250];
  end;
  TKundenstamm = record
        Name,Strasse,Ort:string[100];
        Hausnummer,Postleitzahl:integer;
  end;
  Tearray=Array[0..999]of TEinzelteile;
  Tkarray=Array[0..999]of TKundenstamm;
  TFirma=class
        earray:Tearray;
        karray:Tkarray;
        Einzelteile:File of TEinzelteile;
        Einzelteile:TEinzelteile;
        Kundenstamm:File of TKundenstamm;
        Kundenstamm:TKundenstamm;
        procedure speichern(Edit1,2,3,4:TEdit);
        procedure neu;
        procedure oeffnen(Edit1,2,3,4:TEdit);
        procedure schliessen;
        procedure vor(Edit1,2,3,4:TEdit);
        procedure zurueck(Edit1,2,3,4:TEdit);
      procedure onCreate;
   end;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var 
      Firma : Tfirma;

implementation

{$R *.dfm}

procedure onCreate;
begin
Firma := TFirma.create;
end

procedure oeffnen(Edit1,2,3,4:TEdit);
begin
  assignfile(Einzelteile,'Einzelteile.dat');
  if fileexists ('Einzelteile.dat')
  then reset(Einzelteile);
  Einzelteile.TNummer:=Edit1.Text;
  Einzelteile.Preis:=Edit2.Text;
  Einzelteile.Bezeichnung:=Edit3.Text;
  Einzelteile.Verwendung:=Edit4.Text;
  else ReWrite(Einzelteile);   
end;

procedure neu;
begin

  assignfile(Einzelteile,'Einzelteile.dat');
  seek(eof(einzelteile));
  rewrite(Einzelteile);
end;

procedure speichern(Edit1,2,3,4:TEdit); 
begin
  assignfile(Einzelteile,'Einzelteile.dat');
  Einzelteile.TNummer:=inttostr(Edit1.Text);
  Einzelteile.Preis:=inttostr(Edit2.Text);
  Einzelteile.Bezeichnung:=Edit3.Text;
  Einzelteile.Verwendung:=Edit4.Text;
  write(Einzelteile,earray);
end;

procedure vor(Edit1,2,3,4:TEdit);
  begin
  seek(Einzelteile,filepos(Einzelteile));
  Einzelteile.TNummer:=inttostr(Edit1.Text);
  Einzelteile.Preis:=inttostr(Edit2.Text);
  Einzelteile.Bezeichnung:=Edit3.Text; 
  Einzelteile.Verwendung:=Edit4.Text;
end;

procedure zurueck(Edit1,2,3,4:TEdit);
begin
  Seek(Einzelteile, FilePos(Einzelteile)-2);
  Einzelteile.TNummer:=inttostr(Edit1.Text);
  Einzelteile.Preis:=inttostr(Edit2.Text);
  Einzelteile.Bezeichnung:=Edit3.Text; 
  Einzelteile.Verwendung:=Edit4.Text;
end;

procedure schliessen;
begin
CloseFile(Firma);
close
end;

end.

:wink:

[mkinzler]

Ich bin Datenbanken auch sehr positiv geneigt. In diesem Fall ist es aber egal, da dem TE entwas die Grundlagen fehlen ( Unterschied Prozedur/Funktion <-> Methode usw). Hat er diese Lücken geschlossen, kann er sich überlegen ob Datenbanken etwas für ihn sind
{Edit: @Bericender: Wie wäre es unsere Verbesserungsvorschläge mal umzusetzen?]

[WInfo]

Gut, das ganze ist für die Schule, da ist die Art und Weise der Datenspeicherung vorgesehen.

Dann noch viel Spaß bei den strukturierten Datentypen.