Kontaktprogramm, Probleme beim Dateiladen

[DeddyH]

So, Quatsch? Was geschieht denn hier?

Zitat:

Delphi-Quellcode:

g:=0;
while not(eof(t)) do begin
read(t,x);
typ[g]:=x;
inc(g);
end;

[edit] Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.Laden1Click(Sender: TObject);
var t:file of Tmensch;
    x: tmensch;
    g:integer;
begin
  if not pr then begin
    Showmessage('Bitte zuerst speichern');
    exit;
  end;
  if opendialog1.Execute then begin
    if fileexists(opendialog1.filename) then begin
      pr:=false;
      assignfile(t,opendialog1.filename);
      reset(t);
      SetLength(typ,FileSize(t)); //Größe des Arrays an Anzahl der Records anpassen
      seek(t,0);
      g:=0;
      while not(eof(t)) do begin
        read(t,x);
        typ[g]:=x;
        inc(g);
      end;
      closefile(t);
    end;
  end;
end;

[/edit]