Einzelnen Beitrag anzeigen

Benutzerbild von Tormentor32
Tormentor32

Registriert seit: 27. Okt 2005
Ort: Düsseldorf
369 Beiträge
 
Delphi XE5 Professional
 
#2

Re: Anfänger Problem - Psychologietest

  Alt 4. Mai 2007, 09:41
Hmm soweit ich das verstanden habe, ist in deinem Fall kein 3Dimensionales Array nötig.

Du kannst das Ganze über einen Record lösen:
Delphi-Quellcode:
type
  TFrage = record
    Frage: String;
    Antworten: Array[0..3] of string;
    Zuordnung: Array[0..3] of byte;
  end
So brauchst du nur ein Array[AnzahlDerFragen] of TFrage

Zuordnung sagt, welche Antwort welchem Typ zugeordnet wird, du könntest also zum beispiel folgendes machen:

Delphi-Quellcode:
var
  Fragen: Array[0..99] of TFrage;
//.....
begin
  Fragen[0].Frage := 'Glas ist Halbvoll oder halbleer?'
  Fragen[0].Antwort[0] := 'Halbvoll';
  Fragen[0].Antwort[1] := 'Halbleer';
  //...
  Fragen[0].Zuordnung[0] := 1;
  Fragen[1].Zuordnung[1] := 3; // USW... DU hast ein Array, wo die Anzahl der Jeweiligen Typen drinsteht, so kannst du zum Beispiel

inc(Typen[Fragen[AktuelleFrage].Zuordnung[GewählteFrage]])
Hoffe ich hab das beschrieben was du meinst und es war nicht zun kompliziert
Richard Mahr
  Mit Zitat antworten Zitat