AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Edit Eingabe Vergleich / String aus Text File

Edit Eingabe Vergleich / String aus Text File

Ein Thema von torro · begonnen am 23. Okt 2010 · letzter Beitrag vom 23. Okt 2010
Antwort Antwort
Seite 1 von 2  1 2   
torro

Registriert seit: 16. Sep 2010
37 Beiträge
 
#1

Edit Eingabe Vergleich / String aus Text File

  Alt 23. Okt 2010, 16:57
Delphi-Version: 7
Hi,
folgendes Problem:
Ich bastel zur Zeit an nem Quiz für die Schule und habe als einen von mehreren Fragetypen auch eine Eingabefrage. Sprich es wird eine Frage angezeigt und die Antwort wird in ein Editfeld eingegeben.
Angeschlossen ist daran ist natürlich eine Auswertung der Antwort (sofort nach der Eingabe mit Button Click). Diese funktioniert an und für sich gut. Jetz kommt das Problem:
ist die Antwort eine Zahl, z.B. " Wie viele Aggregatzustände gibt es?" - "3" wird die Antwort immer FALSCH gewertet (hab mir die Auswertung zur Kontrolle auf das Form gelegt).
Die Zahlen durch Wörter esetzen hat leider auch keinen Sinn.

hier mal der Code zur Auswertung:


Delphi-Quellcode:
var Richtig1, FrageStr, Schluessel : string
// FrageStr und Schluessel könnt ihr eig ignorieren
...
IF EditEingabe.text=Richtig1
    then
        begin
            label7.Caption:='richtig';
            assignFile (outfile, EditSchuelername.Text + '.txt');
            reset (outfile);
            append (outfile);
            writeln (outfile, FrageStr);
            writeln (outfile, Schluessel);
            writeln (outfile, 'Richtig');
            closefile(outfile);
        end
    else
         begin
            label7.caption:='falsch';
            assignFile (outfile, EditSchuelername.Text + '.txt');
            reset (outfile);
            reset (outfile);
            append (outfile);
            writeln (outfile, FrageStr);
            writeln (outfile, Schluessel);
            writeln (outfile, 'Falsch');
            closefile (outfile);
        end;
Wie ihr sehen könnt wird dann das Ergebniss in ein Textfile geschrieben (funktioniert). So, jetz meine Frage/Bitte. Wieso werden keine Zahlen verglichen. Und wie bekomm ich hin das sie es werden? Sind ja letztenendes auch nur Strings. zeichen die wie Zahlen aussehen.

Danke
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.115 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Edit Eingabe Vergleich / String aus Text File

  Alt 23. Okt 2010, 17:17
Moin Torro,

es wäre ganz hilfreich, wenn Du mal den Code zeigen würdest, mit dem Du vergleichst, denn der scheint ja offensichtlich einen Fehler zu enthalten

Vergiss das vorherige
Kontrollier doch mal, was in Richtig1 steht.
Wenn da, z.B., 3 drinsteht und in EditEingabe.Text auch, müsste das als richtig gewertet werden.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist

Geändert von Christian Seehase (23. Okt 2010 um 17:21 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Edit Eingabe Vergleich / String aus Text File

  Alt 23. Okt 2010, 17:20
Hast du schon mit dem Debugger geprüft?

Hast du das in dem Programm wirklich so umgesetzt?
Die beiden Teile sind ja so gut wie gleich ... und dann noch ein doppeltes Reset
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
torro

Registriert seit: 16. Sep 2010
37 Beiträge
 
#4

AW: Edit Eingabe Vergleich / String aus Text File

  Alt 23. Okt 2010, 17:25
@ Christian: hab mir Richtig1 extra aufs form gelegt zur kontrolle. da steht immer ne 3 drin oder was gerade richtig sein soll.
@ Rufo: ja hab es so umgesetzt. Die doppelten Resets sind überflüssig? Debugger hab ich noch nie benutzt und wüsste auch nicht wie.
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#5

AW: Edit Eingabe Vergleich / String aus Text File

  Alt 23. Okt 2010, 17:33
Sprich es wird eine Frage angezeigt und die Antwort wird in ein Editfeld eingegeben
Das funktioniert so nicht richtig.
Ein Beispiel:
Auf die Frage "Wer war im Jahr 2009 deutscher Bundeskanzler" könnte man antworten "Angela Merkel" oder auch "Merkel, CDU" oder auch "A. Merkel".
Alle drei Antworten sind richtig aber dein Programm ist unfähig alle Antworten zu erkennen,
weil es keine künstliche Intelligenz hat.
Du müsstest auf ein Multiple-Choice Verfahren umsteigen.
  Mit Zitat antworten Zitat
torro

Registriert seit: 16. Sep 2010
37 Beiträge
 
#6

AW: Edit Eingabe Vergleich / String aus Text File

  Alt 23. Okt 2010, 17:38
Hab ich drin Sind 3 verschiedene fragetypen. Multiple-Choice Fragen sind auch dabei. Die Eingabe Fragen sind eindeutig formuliert um das geschilderte Problem zu umgehen.
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#7

AW: Edit Eingabe Vergleich / String aus Text File

  Alt 23. Okt 2010, 17:42
Eindeutig?

"Wieviel Aggregatzustände gibt es?"
- 3
- drei
- Drei
- DREI
- natürlich drei

Sind alle richtig und würden von deinem Programm auch als richtig erkannt (also vom Design her)?
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
torro

Registriert seit: 16. Sep 2010
37 Beiträge
 
#8

AW: Edit Eingabe Vergleich / String aus Text File

  Alt 23. Okt 2010, 17:49
in der fragestellung wird angegeben ob ich eine zahl haben will oder nicht. außerdem soll auf die rechtschreibung geachtet werden.
allerdings entfernen wir uns grad etwas von meiner frage.
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#9

AW: Edit Eingabe Vergleich / String aus Text File

  Alt 23. Okt 2010, 17:52
Nur mal so als Vorschlag, wie man sich diese doppelten Codezeilen spart

Delphi-Quellcode:
var
  Richtig1, FrageStr, Schluessel : string;
  Ergebnis : string;
// FrageStr und Schluessel könnt ihr eig ignorieren
...
// Eingabe kommt von aussen

// Verarbeitung

IF EditEingabe.text = Richtig1 then
  Ergebnis := 'Richtig'
else
  Ergebnis := 'Falsch';

// Ausgabe ...

// ... auf dem Formular

Label7.Caption := Ergebnis;

// ... in eine Datei

AssignFile( outfile, EditSchuelername.Text + '.txt' );

// Also entweder

// Reset( outfile );

// oder

Append( outfile );

// beides zusammen macht schon mal gar keinen Sinn!

Writeln( outfile, FrageStr);
Writeln (outfile, Schluessel);
Writeln (outfile, 'Richtig');
Closefile(outfile);
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
torro

Registriert seit: 16. Sep 2010
37 Beiträge
 
#10

AW: Edit Eingabe Vergleich / String aus Text File

  Alt 23. Okt 2010, 17:56
Danke für die Idee. Hab das gleich nach dem Muster angepasst. Bin schlicht nich auf die Idee gekommen das Ergebnis auch noch in eine VAR zu schreiben.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

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 04:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz