Selbstprogrammierung eines Vokabeltrainers

[Soph6297]

Zitat von Perlsau:

Würdest du mal kurz erläutern, was du unter "typisierte Datei" vor dem Lesen der verlinkten Anleitung und dann nochmal kurz, was du nach dem Lesen des Tutorials darunter verstehst? Denn mit einer Listbox eine typisierte Datei laden zu wollen erscheint mir doch etwas arg naiv. Wenn du dem Link folgst, erhältst du eine umfassende Einführung in typisierte Dateien. Dein gezeigter Code ist auf keinen Fall bereit, eine typisierte Datei entgegenzunehmen, denn es fehlt – genau, du hast's erfaßt! – der Record.

Da fällt mir noch ein: Wieso schreibst du nicht ein Programm auf der Basis dessen, was ihr in der Schule gelernt habt? Man erwartet doch sicher nicht von dir, Programmiertechniken einzusetzen, die man dir nicht zuvor beigebracht hat, oder?

Ich arbeite, wie Dejan Vu erkannt hat, mit einer Textdatei. Wir hatten die Auswahl zwischen einer typisierten Datei und einer Textdatei; ich habe mich allerdings für eine Textdatei entschieden, da ich damit besser klar komme.
Es wird zwar von uns erwartet uns bereits bekanntes Wissen anzuwenden, allerdings auch, neues Wissen mit einzubinden, was wir vorher noch nicht behandelt haben.

@ Dejan Vu:
Danke für die bisherige Hilfe;

Zitat:

'FJahr' ist ein privates Feld.

Mh, nein tut mir leid. Ich habe leider keine Idee, wo ich ein privates Feld deklariere; nach implementation?


Also hätte ich jetzt die Möglichkeit entweder mit pos und copy zu arbeiten oder mit einer CSV-Datei (von der ich leider noch nie etwas gehört habe)? Ebenso wenig habe ich Erfahrung mit TString aus.
Lässt es sich denn empfehlen mit Pos und Copy zu arbeiten?

Danke!
MfG

[DeddyH]

Ein privates Feld deklariert man im private-Abschnitt der Klasse, zu der es gehören soll. In üblicher Nomenklatur stellt man dem Bezeichner ein F voran. Beispiel:

Delphi-Quellcode:

type
  TDings = class
  private
    FIntwert: integer;
  end;

FIntwert ist somit ein privates Feld vom Typ integer der Klasse TDings. Zu den TStrings: da Du eine Listbox verwendest, hast Du diese TStrings bereits verfügbar, nämlich in deren Items-Eigenschaft.

[p80286]

Zitat von Soph6297:

Also hätte ich jetzt die Möglichkeit entweder mit pos und copy zu arbeiten oder mit einer CSV-Datei (von der ich leider noch nie etwas gehört habe)? Ebenso wenig habe ich Erfahrung mit TString aus.
Lässt es sich denn empfehlen mit Pos und Copy zu arbeiten?

Falsche Fragestellung. Mit pos() und Copy() und ggf. Delete() machst Du zu Fuß das, was schon als Funktionalität in Tstringlist.DelimitedText steckt.
Wenn Du den Fußweg nicht beherschst, bist Du bei einem anderen Compiler/Sprache die den "DelimitedText" nicht bietet verloren.

Was CSV angeht hier gibt's einen Einstieg.

Gruß
K-H

[DeddyH]

Für gerade einmal 2 Werte je Datensatz finde ich CSV eher kontraproduktiv. Was habt Ihr eigentlich alle gegen Namens-/Wertepaare? Viel einfacher geht es doch kaum noch.

Delphi-Quellcode:

procedure TFormTest.btnTestClick(Sender: TObject);
var
  Items: TStrings;  //als Ersatz für die Items der Listbox
  i: integer;
  AName, AValue: string;
begin
  Items := TStringlist.Create;
  try
    //wird ja normalerweise aus der Datei ausgelesen
    Items.Add('Dings=Bums');
    Items.Add('Hau=Ruck');
    Items.Add('Blabb=Blubb');
    Items.Add('Die Frage nach dem Leben, dem Universum und einfach Allem=42');
    for i := 0 to Items.Count - 1 do
      begin
        AName := Items.Names[i];
        AValue := Items.ValueFromIndex[i];
        ShowMessage('Frage: ' + AName + sLineBreak + 'Antwort: ' + AValue);
      end;
  finally
    Items.Free;
  end;
end;

[Jumpy]

Nur um das nochmal aufzugreifen und da ich vermute, das der TE als Anfänger evtl. Verständnisschwierigkeiten hat und evtl. in der Schule andere Begrifflichkeiten verwendet werden:

a) In Klassen nennt man was sonst so unter dem Namen Variablen läuft auch Felder, genauso wie man Prozeduren/Funktionen dort Methoden nennt. "Private" Felder heißt dann in dem Zusammenhang noch, dass diese Felder/Variablen nur innerhalb der Klasse sichtbar sind, d.h. benutzt werden können. Wie das im Code aussieht hat DeddyH ja schon gezeigt.

b) Und als Ergänzung zu #12 von DeddyH, bzw. allgemein, ist es vllt. auch hilfreich zu zeigen, wie der Inhalt der Textdatei dann aussehen könnte:

Code:

Dings=Bums
Hau=Ruck
Blabb=Blubb
Die Frage nach dem Leben, dem Universum und einfach Allem=42

bzw. auf die Aufgabe bezogen

Code:

1714=Kartoffelkrieg
1896=1. olymp. Spiele der Neuzeit
2014=Deutschland wird Fußballweltmeister
usw.

[Soph6297]

Tut mir leid, ich versuche nur zu verstehen, was genau ich programmiere; da frage ich vielleicht zu viel /:

Zitat:

2. Wenn du ein Array[1..2] hast und du rufst ein Item daraus ab, dessen Index kleiner 1 oder dessen Index größer 2 ist, erzeugt dies einen Fehler, denn es existiert nur der Index 1 und der Index 2. Genauso ist das z.B. bei Stringlisten: Wenn du 15 Items darin hast (0..14] und du rufst z.B: das Item mit dem Index 15 auf, das gar nicht existiert, erzeugst du denselben Fehler: Listenindex übersteigt das Maximum.

Ok, das versteh ich!

Ich hab versucht auf den Index der ListBox zuzugreifen:

Delphi-Quellcode:

procedure TForm1.EreignisButtonClick(Sender: TObject);
var zufall:Integer;
     Ereignis:String;


begin

ListBox1.Items.LoadFromFile('TextEreignis.txt');

randomize;
ListBox1.Items.Strings[2];
Trennung(ListBox1.Items.Strings[Zufall], FJahr, Ereignis);
EreignisPanel.Caption:=Ereignis;




end;

ListBox1.Items.Strings[2]; Allerdings wird mir immer noch angezeigt, dass ich das Maximum überschreite.
Müsste ich dann ein Array bei den var einfügen, zB Ereignis:Array [1..3] of String ?

[mkinzler]

Wieviele Zeilen hat die Textdatei?
Das randomize ist hier falsch. Es sorgt dafür, das die Fragen immer iin der selben Reihenfolge gewählt werden.

[Soph6297]

Momentan hat die Textdatei 3 Zeilen, es soll aber später möglich sein, die Textdatei um Zeilen zu erweitern.

Oh, ok.
Aber wenn das randomize dort falsch ist, wo muss ich es dann hinschreiben, damit die Fragen/Antworten aus der Textdatei zufällig gewählt werden?

[Sir Rufo]

Was für einen Wert hat denn Zufall ?

[Soph6297]

Einen Integer Wert, wenn du das meinst?

Delphi-Quellcode:

var zufall:Integer;
     Ereignis:String;


begin

ListBox1.Items.LoadFromFile('TextEreignis.txt');

randomize;
ListBox1.Items.Strings[2];
Trennung(ListBox1.Items.Strings[Zufall], FJahr, Ereignis);
EreignisPanel.Caption:=Ereignis;