Also gestern habt ihr mir ja schon ma sehr geholfen aber ich brauch euch wieder! Folgendes: Speichern tut er alles in der File, aber wenn ich auslesen lassen will dann bekomme ich Meldung, dass Integer und TFilm(Record) nicht kompatibel sind!
Record sieht so aus:
Delphi-Quellcode:
TFilm = Record
Filmtitel:String[50];
Qualitaet:Byte;
Humor:Byte;
Spannung:Byte;
Action:Byte;
Medium:TCombobox;
Datent:Byte;
End;
Und der Read Teil sieht so aus:
Delphi-Quellcode:
procedure TForm1.N1Click(Sender: TObject);
begin
Read(Movie,Film);
Stringgrid1.cells[0,1]:=Film.Filmtitel;
Read(Movie,Film);
Stringgrid1.cells[1,1]:=inttostr(Film.Qualitaet);
Read(Movie,Film);
Stringgrid1.cells[2,1]:=inttostr(Film.Humor);
Read(Movie,Film);
Stringgrid1.cells[3,1]:=inttostr(Film,Spannung);
Read(Movie,Film);
Stringgrid1.cells[4,1]:=inttostr(Film,Action);
Read(Movie,Film);
Stringgrid1.cells[6,1]:=inttostr(Film,Datent);
end;
Das seltsame is aber, dass er das erst ab Spannung sagt und Humor noch funktioniert!
HILFE!
Danke jetzt schon ma!