Hallo
Ich habe folgendes Problem.
Möchte gerne diese Programm zum laufen bekommen.
Es soll eine Datei erstelle wo die Daten aufgelistet sind.
Irgendwo ist hier aber wieder ein Fehler.
Er bleibt immer beim TZielFile = file of TZiel;
stehen
Das ganze soll auf drücken eines Buttons geschehen.
Den habe ich ZielErfassen als Name gegeben
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: TZielListe);
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;
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.