Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: Schule Adressbuch

   
    by wicht, 8. Dez 2011
  Du musst hier
  
  
  type
  TForm1 = class(TForm)
  
  
  
  ein "procedure Button7Click(Sender: TObject);" noch hinzufügen. Alles, was mit "TForm1." beginnt, gehört da rein! :stupid:
• Forum: Sonstige Fragen zu Delphi

  AW: Schule Adressbuch

   
    by wicht, 8. Dez 2011
  "positionieren" muss in die Definition von TForm1.
  
  Also:
  
  
  type
  TForm1 = class(TForm)
  Edit1: TEdit;
  Edit2: TEdit;
  Edit3: TEdit;
• Forum: Sonstige Fragen zu Delphi

  AW: Schule Adressbuch

   
    by wicht, 8. Dez 2011
  Du benutzt Prozeduren (z.B. TForm1.FormCreate, TForm1.FormDestroy), die nicht in der Klassendefinition vorhanden sind. Erweitere deinen Kram im interface-Abschnitt.
  Oben unter
  
  
  { ...}
  procedure Button6Click(Sender: TObject);
  procedure Button5Click(Sender: TObject);
  
  
  musst du noch
• Forum: Sonstige Fragen zu Delphi

  AW: Schule Adressbuch

   
    by wicht, 8. Dez 2011
  Ich habe es jetzt nicht getestet oder sonstwas, aber sehr auffällig ist, dass du Code (z.B. Prozeduren) überhalb des "implementation"-Schlüsselwortes benutzt. Pack mal folgendes
  
  
  procedure TForm1.FormCreate(Sender: TObject);
  var path: String;
  begin
  path := ExtractFilePath(ParamStr(0));
  AssignFile(datei, path+'adressen.dat');
  if FileExists(path+'adressen.dat') then ReSet(datei)
  ...