Problem typisiert Dateien

[CalganX]

Hi,
ich habe mir für eine WWM-Show-Abkupferung (brauche ich für so eine Art WWM) folgenden Typ ausgedacht:

Delphi-Quellcode:

type
  TAnswersystem = packed record
        sAnswA: array[0..255] of Char;
        sAnswB: array[0..255] of Char;
        sAnswC: array[0..255] of Char;
        sAnswD: array[0..255] of Char;
  end;
  TCorrectAnswerSystem = (A, B, C, D);
  TCategories = (a50, a100, a200, a300, a500,
                        a1000, a2000, a4000, a8000,
                        a16000, a32000, a64000, a125000,
                        a500000, a1Mio);
  // der eigentliche Datentyp kommt jetzt
  TDatensatz = packed record
        sQuestion: array[0..255] of Char;
        aAnswers: TAnswersystem;
        aCorrect: TCorrectAnswerSystem;
        aCategorie: TCategories;
  end;
  TDataFile = file of TDatensatz;

Dann dachte ich mir doch, da kannste doch was auslesen mit den Variablen

Delphi-Quellcode:

var
  DataFile: TDataFile;
  allSets: array[0..9999] of TDatensatz;
  MaxSet: integer;
  curDataset: TDatensatz;
  xCounter: integer;

und dann das ganze im OnShow so machen:

Delphi-Quellcode:

  AssignFile(DataFile, DATA_PATH+'QuestionSetup.dat');
  xCounter := 0;
  while not eof(DataFile) do begin
    ReadLn(DataFile, allSets[xCounter]);  (* - *)
    inc(xCounter, 1);
  end;
  CloseFile(DataFile);
  dec(xCounter, 1);
  MaxSet := xCounter;

Nun, dann kommt in der Zeile, die mit (* - *) gezeichnet ist folgender Fehler:

Zitat von Der blöde Delphi-Kompiler:

[Error] MainFrmUnit.pas(77): Incompatible types

Jetzt frage ich euch: was kann ich da machen? Ich habe bereits es versucht an Stelle von allSetes[xCounter] curSet einzusetzen, aber das rafft der auch nicht (mit der gleichen Fehlermeldung)...

Was kann ich da tun, dass das läuft?

Bin für jede Hilfe offen ,
Chris

[MrSpock]

Hallo Chris,

ReadLn geht nur bei TextFiles. Für typisierte Dateien musst du Read benutzen.

[CalganX]

Hi,
super! Funktioniert...

Danke,
Chris