|
Надо не WHILE TFile.POS <>TFile.LEN DO BEGIN, а WHILE TFile.POS < TFile.LEN DO BEGIN. Тогда будет счастье.
и ещё TFile.TEXTMODE := TRUE;
А кто-нибудь знает, как добавить символ новой строки (аналог '\n' или Environment.NewLine ), чтобы считаные из файла строки склеить в одну строку и получить тоже, что и в файле.
|