Hallo und einen schönen Abend an Alle,

nunja wie mein Name ja schon sagt bin ich absoluter und stümperhafter Anfänger in Delphi. Ich hoffe ihr könnt darüber hinwegsehen, dass ich keinen Plan habe.
Ich hoffe ihr nehmt euch für meine Anfänger-Fragen Zeit und ich nerve euch nicht so sehr, dass ihr mir nicht antwortet. Soviel zur Einleitung.

Mein Problem

Ich möchte ein einfaches Programm zum Üben des Laden und Speicherns von Dateien schreiben. Dazu habe ich mir ein Adressbuch ausgesucht (einfach und üblich)

Da ich ja nicht weiß was ich falsch mache hier der Quellcode:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit_Sp_1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Button1: TButton;
    Datei_speichern_Dialog: TSaveDialog;
    Datei_laden_Dialog: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

const max = 1000;

type

  TAdresse = record

            Vorname : String[30];
            Nachname : String[30];
            Wohnort : String[50];
            PLZ : String[50];
            Strasse : String[50];
            Telefonnummer : String[50];
            Handynummer : String[50];
            Faxnummer : String[50];
            Firma : String[50];
  end;

  TAdressenkartei = Array[1..max] of TAdresse;


var
  Form1: TForm1;
  Datei : file of TAdresse;
  Allah : TAdressenkartei;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
      If Datei_speichern_Dialog.Execute then begin
         assignfile(Datei, Datei_speichern_Dialog.FileName);
         rewrite(Datei);

         for i := 1 to max do begin
         write(datei, TAdressenkartei[i]);
         end
             closefile(Datei);
      end;
end;

end.

Hier der angezeigte Fehler: '(' erwartet aber '[' gefunden (die betreffende Stelle habe ich im Quellcode rot markiert)

Eigentlich steht hinter TAdressenkartei in eckigen Klammern der Index i.
Ich hoffe ihr seid mir wegen meiner wahrscheinlich etwas blöden Frage nicht zu böse...
Ich danke euch für die ins Lesen und Antworten investierte Zeit.

Habe das ganze jetzt mal um die von Klaus gewünschte Variable ergänzt...und jetzt???

LG Euer Anfänger

Hallo,

du solltest Dir vielleicht noch eine Variable deklarieren vom Typ TAddressenKartei.
Auf den Typen kannst Du so nicht zugreifen.

Grüße
Klaus

Danke sehr, ich probier das gleich mal aus.

Falls noch wer auf ne Folgefrage antworten kann, da hab ich auch gleich noch eine:

Reicht es nicht aus die Variablen im Record TAdresse zu Deklarieren???

Mein Compiler meckert und schreit Undefinierter Bezeichner...

Bitte pro Thema nur eine Frage. Sonst wird das ein riesen Durcheinander und keiner weiß am Ende mehr welche Antwort zu welcher Frage gehört. Und andere mit dem gleichen Problem finden dann über die Suche die hier gepostete Lösung auch nicht mehr so leicht.

PLZ : Integer;
Telefonnummer : Integer;
Handynummer : Integer;
Faxnummer : Integer;

Alles in Strings ändern - Integer geht nicht!

Hallo,

der Compiler gibt sicherlich einen Fehler aus mit der Zeilennummer der folgenden Zeile.

Zitat von Sorry bin Anfänger:

         write(datei, TAdressenkartei[i]);

Da steht ein Typ TAdressenkartei und danach kommt ein [. Der Compiler meint jetzt ein ( währe richtig, was einem Typ-Cast entspricht. Das ist ja nicht das was du willst, sondern du willst bestimmt den Inhalt einer Variablen (Allah) speichern.

einbeliebigername.

Ja richtig. Ich will am Ende dahin kommen, dass ich in 8 edit Felder

- Vorname
- Nachname
- Adresse
- Telenummer
...

eintragen kann, auf speichern gehe und eine Datei erzeuge die ich später wieder aufrufen kann und wo mir das Programm alles wieder in die richtigen Felder reinschreibt...

Soweit zu meinem Ziel.

Was muss ich jetzt machen um den Inhalt der Allah Variablen zu speichern???

Danke nochmal an Alle für die Hilfe bis jetzt.