AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Problem typisiert Dateien

Ein Thema von CalganX · begonnen am 21. Mär 2003 · letzter Beitrag vom 21. Mär 2003
Antwort Antwort
CalganX

Registriert seit: 21. Jul 2002
Ort: Bonn
5.403 Beiträge
 
Turbo Delphi für Win32
 
#1

Problem typisiert Dateien

  Alt 21. Mär 2003, 18:42
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
»Mein Kaffee ist so schwarz — der fängt gleich an zu rappen...«
  Mit Zitat antworten Zitat
Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
6.003 Beiträge
 
Delphi 2010 Professional
 
#2
  Alt 21. Mär 2003, 20:47
Hallo Chris,

ReadLn geht nur bei TextFiles. Für typisierte Dateien musst du Read benutzen.
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat
CalganX

Registriert seit: 21. Jul 2002
Ort: Bonn
5.403 Beiträge
 
Turbo Delphi für Win32
 
#3
  Alt 21. Mär 2003, 21:01
Hi,
super! Funktioniert...

Danke,
Chris
»Mein Kaffee ist so schwarz — der fängt gleich an zu rappen...«
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf