Delphi-Quellcode:
for j:=1 to filesize(f) do
Zaehler:=0;
Egal wie groß die Datei ist, du hast immer Zaehler=0
Delphi-Quellcode:
while not eof(f) do
read(f,wert);
Hier liest du alle Buchstaben in eine Variable
reset(i);
Zitat von
The Fine Manual:
Die Prozedur Reset öffnet eine vorhandene Datei.
Ist F bereits offen, wird sie zuerst geschlossen und dann erneut geöffnet. Nach dem Öffnen wird der Dateizeiger an den Anfang der Datei gesetzt.
Wenn du das vor jedem Schreiben machst, ist es klar, dass du am Ende nur einen Eintrag hast.
Zitat:
Falls noch Fragen zu Variablen sind bitte frage.
Wenn dir klar ist, dass da was unklar ist, ist es doch klar, dass du da von selbst etwas aufklären solltest.
- Ein paar Kommentare und Einrückungen erleichtern das Lesen und dir fallen vielleicht selbst ein paar Fehler auf.
Für was hast du denn eigenrlich die ganzen if-KLammern??? Du weisst doch schon in welche Reihenfolge, die Daten gehören; das sortieren hat dir doch schon derjenige abgenommen, der die zweite Datei geschrieben hat.
Hast du dir mal meinen Vorschlag mit dem Array abgeschaut? Ich denke dass, das recht einfach zu machen ist.