So hab nen paar Sachen geändert
Jetzt hab ich ein Problem mit Listen?
Ich hab das auch noch nicht so verstanden wieso bei der procedure in der Vorgabe das mit
(var Liste: TZielListe); drinne steht?
Delphi-Quellcode:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
TZiel =
record
Ort:
String[20];
Preis: real;
end;
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 TForm1.Button1Click(Sender: TObject);
//procedure ZieleErfassen(var Liste: TZielListe);
begin
with Liste
do
begin
Ziele[1].Ort:='
Dresden';
Ziele[1].Preis:=16.00;
end;
with Ziele[2]
do
begin
Ort := '
Berlin';
Preis := 43.00;
end;
with Ziele[3]
do
begin
Ort :='
Aachen';
Preis := 155.00;
end;
ZielZahl :=3;
ZieleErfassen(ZielListe);
Assign(Zielfile, '
C:\Notebook\Desktop\ziele.dat');
Rewrite(Zielfile);
with ZielListe
do
for I := 1
to ZielZahl
do
begin
write(ZielFile, Ziele[I]);
Close(ZielFile);
end;
end;
end.