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:
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