Index Daten angeben-ausgeben

[Kiasu]

Moin, ich will ein Programm schreiben in dem man mehrere Wörter auf der Festplatte speichern kann. Ich hab das schonmal gemacht aber irgendwie ist mir die Hälfte entfallen :S. Das soll nen Vokabeltrainer werden und die Wörter sollen auf der Festplatte gespeichert werden und später in der "Abfrage" abgeragt werden !!!!einzeln!!! (na könnt ihr mir noch folgen )
Bei dem Teil mit dem Einzeln Abfragen bin ich überfordert!.

HILFE!!!!!!!!!!!


---Einlesen----

Delphi-Quellcode:

var Woerter: file of real;
Wort : real;

begin
    writeln('geben sie Ihr Wort ein');
    writeln;
    writeln('geben sie Ihr 2.Wort ein');
    writeln;
 ...
    ASSIGN(Wort,'C:\Woerter...DAT'); 
    REWRITE(Wort); 
    Write(Wort);
end;

CLOSE(Wort);
writeln('ENTER druecken...');
readln;

---Auslesen---
?????



_______________________

Danke an jeden der mir versucht zu helfen!

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[fkerber]

Hi!

Bitte verwende [delphi]-Tags, damit man den Code besser lesen kann...

Warum möchtest du das ganze als Konsolenprogramm machen? (Das ist es doch im Moment, oder?)

Funktioniert das Speichern bei dir nun?
Ich kann da nicht so ganz rauslesen, was du tust?!


Du solltest dir vllt. typisierte Dateien anschauen:
http://www.delphi-treff.de/tutorials...ierte-dateien/



Ciao, Frederic

[Kiasu]

hab mich nochmal rangesetzt....klappt tortzdem net.....aso und ich kann nur Konsolenanwendungen...aso hab das mit dem Formular nicht gelernt...

Delphi-Quellcode:

Procedure eingeben;
var Vokabeln: file of real;
    Vokabel:real;
    right:string;
    wrong:string;
    wrong2:string;
begin
writeln('geben Sie ihre Vokabel ein: zuerst das Wort, dann die richtige antwort');
writeln(' und dann zwei falsche Antworten');
ASSIGN(Vokabeln,'C:\Vokabel_Kaus...DAT'); //Datei erhält Namen
REWRITE(Vokabeln);

begin
Write(Vokabel,Wrong,right,wrong2); //Betrag->Datei
readln(Vokabel,wrong,wrong2,right);
end;
CLOSE(Vokabeln);
writeln('ENTER druecken...');
readln;
end;


procedure Datensatz_ausgeben;
var Vokabeln: file of real;
Woerter:integer;
  Vokabel:real;
Begin
writeln('');
writeln('');
ASSIGN (Vokabel, 'C:\Vokabel_Kaus...DAT');
writeln(''); //Datei erhält Namen
{$I-}
RESET(Vokabel);//und wird geöffnet
{$I+}

begin
READ(Vokabeln, Right,wrong,wrong2);
end;
CLOSE(Vokabel)
end;

[edit=mkinzler]Delphi-Tag korrigiert Mfg, mkinzler[/edit]