-
Forum: Programmieren allgemein
by Soph6297,
21. Jun 2014
An dieser Stelle Danke an eure Hilfe, schlussendlich läuft das Programm jetzt wie geplant. :)
MfG
-
Forum: Programmieren allgemein
by Soph6297,
17. Jun 2014
zufall:=random(ListBox1.Items.Count);
Wenn ich das allerdings in der procedure aufrufe, kommt die Fehlermeldung, dass ListBox1 undefiniert ist.
procedure Trennung(text:String; var TAntwort,TFrage:String);
const
Frage_Antwort='Rheinbund;1806';
Trenner=';';
-
Forum: Programmieren allgemein
by Soph6297,
17. Jun 2014
Einen Integer Wert, wenn du das meinst?
var zufall:Integer;
Ereignis:String;
begin
ListBox1.Items.LoadFromFile('TextEreignis.txt');
-
Forum: Programmieren allgemein
by Soph6297,
17. Jun 2014
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?
-
Forum: Programmieren allgemein
by Soph6297,
17. Jun 2014
Tut mir leid, ich versuche nur zu verstehen, was genau ich programmiere; da frage ich vielleicht zu viel /:
Ok, das versteh ich!
Ich hab versucht auf den Index der ListBox zuzugreifen:
procedure TForm1.EreignisButtonClick(Sender: TObject);
var zufall:Integer;
Ereignis:String;
-
Forum: Programmieren allgemein
by Soph6297,
16. Jun 2014
Ok danke, dann funktioniert das mit den Parametern soweit! (:
Nun ergeben sich aber zwei weitere "Probleme".
1) Die Zeile
Trennung(ListBox1.Items.Strings, FJahr, Ereignis);
weist zu viele Parameter auf. Nämlich FJahr und Ereignis. Müssen die da wirklich rein?
2) Wenn ich, zur Probe, FJahr und Ereignis lösche und das Programm starte und den "Neues Ereignis" Button klicke kommt eine...
-
Forum: Programmieren allgemein
by Soph6297,
16. Jun 2014
1) Aber wie kann ich es anders schreiben, dass Delphi "nicht mehr rummotzt"...?
Ich hab als Bsp gefunden:
"s := 'Dies ist ein Test';
COPY(s, 14, 4);
ergibt:
'Test'"
Demnach fehlt bei mir ein Parameter, aber welches? Bzw. was sollen die Zahlen darstellen?
2) Ja, das weiß ich, aber welchen Zweck erfüllt das Meldungsfenster im Zusammenhang mit vorher geschriebenen? Was wird dem Benutzer...
-
Forum: Programmieren allgemein
by Soph6297,
16. Jun 2014
Ich hab erstmal ein Anfang gewagt...
procedure Trennung(text:String);
const
Frage_Antwort='Rheinbund;1806';
Trenner=';';
var Frage, Antwort:String;
iPos:integer;
-
Forum: Programmieren allgemein
by Soph6297,
13. Jun 2014
Ich hatte ja schon die procedure Trennung erstellt mit der ich eigentlich arbeiten wollte.
Wenn ich also Zeile für Zeile abarbeiten will, muss ich also immer das, entsprechend der Frage und Antwort, wiederholen?
begin
(* Position des Trennzeichens ermitteln *)
iPos := Pos(TRENNER, FRAGE_ANTWORT);
(* Wenn gefunden *)
if iPos > 0 then
begin
(* Von Stringanfang bis...
-
Forum: Programmieren allgemein
by Soph6297,
13. Jun 2014
Müsste ich dann für jeden Frage-Antwort Paar so etwas deklarieren?
Oder gibt es einen einfacheren Weg?
-
Forum: Programmieren allgemein
by Soph6297,
13. Jun 2014
Entschuldigt meine kürzliche Inaktivität.
Um nochmal darauf zurückzukommen - ich habe versucht mich mit all den gegebenen Möglichkeiten vertraut zu machen, finde aber, dass ich mit dieser Variante am besten klar kommen werde, da wir es z.T. auch schon behandelt haben.
Ich hab mich mal dran versucht mit Pos und Copy zu arbeiten, komme allerdings nicht wirklich weiter; Delphi zeigt Fehler...
-
Forum: Programmieren allgemein
by Soph6297,
28. Mai 2014
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...
-
Forum: Programmieren allgemein
by Soph6297,
27. Mai 2014
Guten Abend! :hi:
Schlussendlich habe ich jetzt doch meinen Weg hierher gefunden, da ich mit meinen bisherigen Kenntnissen leider nicht weiterkomme.
Wir haben in der Schule die Aufgabe bekommen ein Programm mit Delphi 6 selbst zu schreiben, uns blieb dabei überlassen, welche Art von Programm wir erstellen.
Ich habe mich für eine Art Vokabeltrainer entschieden, allerdings mit...