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

zusammenfalten · markieren

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

In Records stets die Stringlänge angeben!

markieren

Delphi-Quellcode:

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

OK. Aber das Problem ist immernoch da...

Zitat:

Aktuell:=Speicher;

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

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

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

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

Danke!

gruß 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

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