Bekomm das mit den Records nicht hin?

[EMS]

Hallo
Ich möchte ein Programm zum CD suchen ect. schreiben.
Das gerne mit dem Record cdtyp.
Jetzt bin ich mir aber nicht ganz sicher wo ich das genau rein schreiben muss?
Ich habe mal den bisherigen Quelltext unten drunter gestellt.
Wenn ich es jetzt starten will kommt immer:

Identifier not found "cdtyp"
Error in type definition
Identifier not found "cdtyp"

Ich hab keine Idee wieso?
Ich vermute ich habe das type irgendwie nicht ganz richtig da drinne Stehen??




unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }

type cdtyp = record
Interpret: string[20];
Titel:string[40];
Musikrichtung:string[20];
Spieldauer: integer;
Jahr: integer;
end;
end;


var
Form1: TForm1;
cd: array[1..100] of cdtyp;
wahl : byte;
index : integer;
datei : file of cdtyp;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
index:=strtoint(Edit1.text);
end;

end.

[daywalker9]

Bitte nutzte die Delphi Tags für deinen Code.

Dein Problem ist Du hast cdtyp in deiner Form Klasse deklariert. D.h. du müsstest TForm1.cdtyp schreiben oder cdtyp nach dem end; von TForm1 verschieben.

[EMS]

Hallo
Ok super das hat geklappt.
Ich schau mir mal an wie ich das machen muss mit dem Delphi Tags

Jetzt hab ich aber das nächste Problem...

procedure TForm1.Button1Click(Sender: TObject);

begin
index:=strtoint(Edit1.text);
with cd[index] do
Interpret:=Edit2.text;
Titel:=Edit3.Text;
Musikrichtung:=Edit4.text;
Spieldauer:=inttostr(Edit5.text);
Jahr:=inttostr(Edit6.text);
end;

was ist denn hier schon wieder falsch dranne?

[DeddyH]

Delphi-Tags kannst Du mit der "Helm"-Schaltfläche im Beitragseditor setzen oder indem Du Deinen Code in [ delphi][ /delphi] (ohne die Leerzeichen) einschließt. Zum Problem: da fehlt wohl ein begin und ein end.

[EMS]

Wo denn?
Unter dem with?

Delphi-Quellcode:

        
procedure TForm1.Button1Click(Sender: TObject);

begin
 index:=strtoint(Edit1.text);
 with cdtyp[index] do
    Interpret:=Edit2.text;
    Titel:=Edit3.Text;
    Musikrichtung:=Edit4.text;
    Spieldauer:=inttostr(Edit5.text);
    Jahr:=inttostr(Edit6.text);
end;

[DeddyH]

Ja. With würde ich an Deiner Stelle sowieso gleich wieder aus meinem Wortschatz verbannen, da es keinen echten Mehrwert bringt, das Debuggen aber unnötig erschwert. Was spricht denn gegen

Delphi-Quellcode:

var
  CurrentTyp: cdtyp; //Typen beginnen überlicherweise mit einem T, also wäre TCDTyp besser
begin
  index:=strtoint(Edit1.text);
  CurrentTyp := cd[index];
  CurrentTyp.Interpret:=Edit2.text;
  CurrentTyp.Titel:=Edit3.Text;
  CurrentTyp.Musikrichtung:=Edit4.text;
  CurrentTyp.Spieldauer:=inttostr(Edit5.text);
  CurrentTyp.Jahr:=inttostr(Edit6.text);
end;

:?:

[EMS]

ja mir wäre das auch egal aber unser Lehrer will nur bestimmt sachen immer akzeptieren...

[Aphton]

Deddyh, du hast vergessen, den Inhalt der tmp Variable wieder zurück ins Array zu kopieren :!:

[DeddyH]

Es ging mir ja auch mehr um die Syntax ohne das blöde "with".

[EMS]

Hallo
bin jetzt nen Programm weiter und neues Problem...

Delphi-Quellcode:

 unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

type
  TZiel = record
    Ort: String;
    Preis: real;
  end;
type
  TZielliste = record
  Ziele: array[1..100] of TZiel;
  ZielZahl: integer;
 end;

TZielFile = file of TZiel;

var
  Form1: TForm1;
  ZielListe: TZielliste;
  ZielFile: TZielfile;
  I: integer;


implementation

{$R *.lfm}

{ TForm1 }

procedure ZieleErfassen(var Liste: ZielListe);
begin
  with Liste do begin
    Ziele[1].Ort:='Dresden';
    Ziele[1].Preis:=16.00;
    with Ziele[2] do begin
      Ort := 'Berlin';
      Preis := 43.00;
    end;
  with Ziele[3] do begin
     Ort :='Aachen';
     Preis := 155.00;
  end;
  ZielZahl :=3;
  end;
end;

begin
ZieleErfassen(ZielListe);
Assign(Zielfile, 'C:\Users\Notebook\Desktop\ziele.dat');
Rewrite(Zielfile);
with ZielListe do
   for I := 1 to ZielZahl do
      write(ZielFile, Ziele[I]);
   Close(ZielFile);
end;

end.

Wo ist denn jetzt schon wieder der Fehler?
Irgendwie weiß ich nicht so recht wo das
TZielFile = file of TZiel hin muss?

[DeddyH]

Neue Frage, neuer Thread.

[delnu]

Also nee ! Wirklich ! Mit "neue Frage, neuer Thread" ist doch gar nichts beantwortet !

Außerdem ist es nach wie vor das Thema des Threaderstellers, nämlich Probleme mit Records.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  TZiel = record
    Ort: ShortString; // Der String muß offenbar eine definierte Länge haben
    Preis: real;
  end;

type
  TZielliste = record
  Ziele: array[1..100] of TZiel;
  ZielZahl: integer;
 end;

TZielFile = file of TZiel;

var
  Form1: TForm1;
  ZielListe: TZielliste;
  ZielFile: TZielfile;
//I: integer;

implementation

{$R *.DFM}

procedure ZieleErfassen(var Liste: TZielListe);  // "TZielliste" statt "Zielliste"
begin
  with Liste do begin
    Ziele[1].Ort:='Dresden';
    Ziele[1].Preis:=16.00;
    with Ziele[2] do begin
      Ort := 'Berlin';
      Preis := 43.00;
    end;
  with Ziele[3] do begin
     Ort :='Aachen';
     Preis := 155.00;
  end;
  ZielZahl :=3;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer; // FOR-Schleifenvariable muß eine einfache lokale Variable sein
begin
ZieleErfassen(ZielListe);
AssignFile(Zielfile, 'C:\Users\Notebook\Desktop\ziele.dat'); // nicht "Assign"
Rewrite(Zielfile);

with ZielListe do
   for I := 1 to ZielZahl do
      write(ZielFile, Ziele[I]);
   CloseFile(ZielFile); // nicht "Close"
end;

end.

Anmerkung : Das Speichern wird eine Fehlermeldung bringen, wenn der Zielpfad nicht existiert.
Es wäre klüger, vorher dessen Existenz zu prüfen und ihn ggf. bei Fehlen anzulegen.

Delphi-Quellcode:

// Hier erweist sich der Schönheitsfehler : Zielzahl wird nicht gespeichert !
// Statt des Memo wäre wahrscheinlich ein StringGrid besser ...
procedure ZieleAusgeben(var Liste: TZielListe);
var
  I: integer;
begin
  Form1.Memo1.Clear;
  with Liste do for i:= 1 to 3 { Zielzahl } do begin
   Form1.Memo1.Lines.Add(ziele[i].ort+','+floattostr(ziele[i].preis));
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I: integer;
begin
AssignFile(Zielfile, 'C:\Users\Notebook\Desktop\ziele.dat');
ReSet(Zielfile);

with ZielListe do
   for I := 1 to 3 {ZielZahl} do
      read(ZielFile, Ziele[I]);
   CloseFile(ZielFile); // nicht "Close"
   ZieleAusgeben(ZielListe);

end;

Mich hat interessiert, was denn mit den Daten ist, wenn man sie wieder einliest und habe darum einen zweiten Button und ein Memo eingefügt. Nachdem ich dann merkte, daß die Zielzahl ja gar nicht mit gespeichert wird, also auch nicht vorweg aus der Datei gelesen werden kann, kann ich nur empfehlen, das ganze Konstrukt zu überarbeiten ! Statt mit "file of" zu arbeiten, würde ich mit BlockWrite/BlockRead arbeiten. Die Dateistruktur müßte so aussehen, daß im Kopf die Zahl der Datensätze gespeichert wird und danach jeweils die einzelnen Datensätze, aber nicht mit einer Struktur "Ziele: array[1..100] of TZiel;", sondern mit dynamischer Verwaltung. Am geeignetsten wäre dafür sicher ohnehin so etwas wie ein StringGrid. Bei Neueingaben bzw. Auslesen aus einer Datei müßten diese dann automatisch angefügt werden bzw. beim Speichern dann umgekehrt.