Schule Adressbuch

[himitsu]

Tipp (wenn man sich seinen Quellcode komplett "zerschossen" hat):

* neue Form erstellen

* Folgendes dort rein:

Delphi-Quellcode:

type
  Adresse = record
    name: string[50];
    strasse: string[100];
    plz: integer;
    ort: string[50];
  end;

  TForm1 = class(TForm)
    
  private
    { Private-Deklarationen }
    datei: file of Adresse;
    procedure positionieren(datensatz: integer);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

* mit dem Cursor auf positionieren und Strg+Shift+C

* in die alte Form gehn

* alle Komponenten (im Fenster) makieren, kopieren und in der neuen Form einfügen

* ab jetzt das Projekt nicht speichern

* dann über den OI alle Events neu erzeugen
* * doppelt auf die Buttons klicken
* * über den OI OnCreate und OnDestroy anlegen

* aus dem alten Projekt die Prozedurinhalte in die neuen Prozeduren kopieren (Jede einzeln)

* nun kann man wieder speichern (habt ihr zwischendurch gespeichert, dann muß man die noch leeren Prozeduren erneut erstellen, da sie entfernt wurden, weil der Compiler dachte die braucht keiner ... oder man schreibt erstmal überall schnell ein // zwischen BEGIN und END )
Oder man erstellt nur die jeweilige Prozedur, für welche man grade den Code neu einfügen will.