help me

[Clicq]

Hello
Can someone correct my program , i think the error is in the opening of
a file
please help me , on monday i have an exam of Delphi

Thanks

Jeroen Clicq

Jeroen...@pandora.be

This is the code of my program , please correct it

unit Unit1;

interface

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

type
TFiche = record
naam : String[30];
loon : currency;
end;
TKaartenbak =Array[1..10] of TFiche;
//dit stelt toch een array voor met 10 Fichen in ??
// weet niet dat dat juist is
TKaartenbakFile = File of TFiche;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
volgnummer : 1..10;
jeroen : TKaartenbak;
MijnFile : TKaartenbakFile;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
//om een gegeven in de array in te schrijven
i : integer;
eenkaart : TKaartenbak;
begin
volgnummer := StrToInt(Edit1.Text);
With jeroen[volgnummer] do
begin
naam := Edit2.Text;
loon := StrToFloat(Edit3.Text);
end;
(* dit zou de code kunnen zijn ik weet nie dat dit klopt)
om al de gegevens die in je array zitten op te slagen *)
If SaveDialog1.Execute then
AssignFile(MijnFile ,SaveDialog1.FileName);
Rewrite(MijnFile);
for i:=0 To volgnummer-1 do
Write(MijnFile, Eenkaart[i]);
CloseFile(MijnFile);

Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';

end;

procedure TForm1.Button2Click(Sender: TObject);
// hier zou moeten de mogelijkheid in bestaan oudere gegevens die je in
de array hebt ingevoerd
//terug op te roepen, deze die in de File stonden terug in het geheugen
te laten
//hier zit ergens een fout in
var
teller : integer;
eenkaart : Tkaartenbak;
begin

If OpenDialog1.Execute then
Begin
AssignFile(MijnFile, OpenDialog1.FileName);
teller := 0;
Reset(MijnFile);
//While not Eof(MijnFile) do
//Begin
read(MijnFile, Eenkaart[teller]);
teller := teller +1;
CloseFile(MijnFile);
// hoe laat je de gegevens terug in??
end;
end;
(*
volgnummer := StrToInt(Edit1.Text);
Edit2.Text :=Jeroen[volgnummer].naam;
Edit3.Text :=FloatToStr(Jeroen[volgnummer].loon);
*)

procedure TForm1.Button3Click(Sender: TObject);

begin
volgnummer := StrToInt(Edit1.Text);
Edit2.Text :=Jeroen[volgnummer].naam;
Edit3.Text :=FloatToStr(Jeroen[volgnummer].loon);
end;

end.