Speichern von Record-Problem

[Teekeks]

Hi!
Ich habe ein Problem beim speichern eines Records.
Ich habe follgenden Quellcode:

Delphi-Quellcode:

unit Einstellungen; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, ActnList;

type
  TSuche= record
    Suchanzeige:string;
    MAX_Suchbegr:integer;
  end;

  TTray= record
    Trayanzeigen:Boolean;
    Trayopen:Boolean;
  end;

  Spei= record
    Suche:TSuche;
    Tray:TTray;
  end;

  { TForm1 }

  TForm1 = class(TForm)
 //...
  private
    { private declarations }
  public
    { public declarations }
    Aktuell: Spei;
    Speicher: file of Spei;
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.FormShow(Sender: TObject);
begin
  Assignfile(Speicher,pathdelim+ExtractFilePath(paramstr(0))+pathdelim+'Data'+pathdelim+'sys.bve');
  Reset(Speicher);
  Aktuell:=Speicher;
  CloseFile(Speicher);
  Checkbox1.Checked:=Aktuell.Tray.Trayanzeigen;
  CheckBox2.Checked:=Aktuell.Tray.Trayopen;
  Edit1.Caption:=intToStr(Aktuell.Suche.MAX_Suchbegr);
  Edit2.Caption:=Aktuell.Suche.Suchanzeige;
end;
//...

Und ich kriege da die Meldung"Incopatibel types: got "file of Spei" expected "spei".

Was mach ich falsch??

gruß Teekeks

[roga]

In Records stets die Stringlänge angeben!

Delphi-Quellcode:

TSuche= record 
  Suchanzeige:string[255]; // Hier!!
  MAX_Suchbegr:integer; 
end;

[Teekeks]

OK. Aber das Problem ist immernoch da...

[DeddyH]

Zitat:

Aktuell:=Speicher;

Das sind doch 2 unterschiedliche Typen, die kannst Du nicht zuweisen.

[Teekeks]

Sind doch beide vom Typ Spei. Nur das dass eine eben ein File davon ist.
Wie lese ich denn sonst Speicher in Aktuell ein?

[DeddyH]

Mit Read. Syntax:
Read(Dateivariable, Puffervariable);

[Teekeks]

OMG ist das peinlich...
das war zu einfach ^^

Danke!

gruß Teekeks

[Teekeks]

Hmm. jetzt konnte er immerhin Debuggen... aber beim aufrufen der Form kommt erst "Project raised exeption class 'RunError(2)'." und dann:
" Adresse: $08063900
Procedure: SYSTEM_HANDELEERRORADDRFRAME$LONGINT$POINTER$POINT ER
Datei:
"
Und bleibt dann bei reset(Speicher); stehen.

Was ist da jetzt schonwieder falsch?

gruß Teekeks

[DeddyH]

Gibt es die Datei schon? Wenn nicht, musst Du sie erst mit Rewrite anlegen.