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

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi-Frage

[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:

Delphi-Quellcode:

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:

Delphi-Quellcode:

Read(Dateivariable, Puffervariable);

[Teekeks]

OMG ist das peinlich... :oops:
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

Delphi-Quellcode:

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.

[Hawkeye219]

Hallo,

Delphi-Quellcode:

Assignfile(Speicher,pathdelim+ExtractFilePath(paramstr(0))+pathdelim+'Data'+pathdelim+'sys.bve');

Du solltest dir den zusammengebastelten Dateinamen einmal anzeigen lassen, dann findest du den Fehler bestimmt.

Gruß Hawkeye

[DeddyH]

Das außerdem :mrgreen:

[Teekeks]

Nunja bis jetzt gab es keine probleme mit dem Pfad auch wenn da 2pathdelimiter drinne vorkommen(nacheinander).
Aber es stimmt. sich hatte vergessen die Datei zu erzeugen ^^
hmmm. aufjedenfall danke!

gruß Teekeks

[Hawkeye219]

Zitat:

Zitat von Teekeks

Nunja bis jetzt gab es keine probleme mit dem Pfad auch wenn da 2pathdelimiter drinne vorkommen(nacheinander).

Und das Pfadtrennzeichen vor dem Laufwerksbuchstaben hat wirklich keine Probleme bereitet?

Gruß Hawkeye

[Teekeks]

Ich hab Linux. Da gibts keinen Laufwerksbuchstaben :-D
habs jetzt aber geändert...