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