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