1. nachträglich geänderter Quelltext ist für Fragesteller selber nicht gut. (reset <-> rewrite) 8)
2. Folgefehler : Logik schreiben/lesen nicht ganz klar, was ?
Zitat von
ArminF:
Delphi-Quellcode:
while not eof(f1) do
begin
readln (f1,zeile); {liest aus f1 eine Zeile und speichert in "zeile"}
write(t1,zeile); {schreibt in t1 den Inhalt von zeile}
end;
seek (t1,0);
read (t1,cDNAgesamt);
close (f1);
close (t1);
end;
3. Wozu überhaupt close ?
4. Was soll das seek bewirken ?
F1 bewirkt Wunder ! 8)