Edit Eingabe Vergleich / String aus Text File

[Sir Rufo]

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);