Witam.
Po przeczytaniu art: Eof
Zrobiłem sobie taki program, który przepisuje słowo z jednego pliku do drugiego, tylko wtedy, gdy ten ma odpowiednią ilość liter:
AssignFile(F1, 'slowa.txt');
try
Reset(F1);
AssignFile(F2, 'slowa2.txt');
try
ReWrite(F2);
while not Eof(F1) do
begin
Readln(F1, Line);
if Length(line)=5 then Writeln(F2, Line);
end;
finally
CloseFile(F2);
end;
finally
CloseFile(F1);
end;
Problem jest taki, że jeżeli w pliku źródłowym występuje np słowo masło, to nie przepisze teraz tego słowa do nowego pliku.
Jak dam dwa razy ten kod -> Z Odczytuje z pliku źródłowego, jak ma 5 liter, to zapisuje do słowa2.txt, a jak ma 6 liter, to do słowa3.txt, to wyraz "masło" znajdować się będzie w pliku z wyrazami mającymi 6 liter.
Proszę o pomoc.