Podczas pisania programu napotkałem pewien problem - po napisaniu jakiejś już tam jego części przy próbie skompilowania wyskoczył mi błąd - Line Too Long (more than 255 characters) w procedurze, OnCreate głównej formy. Po skróceniu nieco kodu przed miejscem gdzie pojawia się błąd wszystko działało dobrze, aż do czasu, kiedy znowu dopisałem nieco kodu (ale już w zupełnie innej procedurze!!!, która nie wykonuje się przy załączaniu programu). Wyskoczył znowu ten sam błąd. Nie pomaga niestety przenoszenie tego kodu do innej procedury (błąd wyskakuje wtedy w tamtej procedurze), czy przypisanie do innego zdarzenia związanego z główną formą typu OnShow, czy OnActivate.
Jest to tym bardziej denerwujący, że kod procedury, który jest przed miejscem pojawienia się błędu to zaledwie kilka linijek.
Poza tym ta linijka wcale nie jest jakaś specjalnie długa (bywają oczywiście znacznie dłuższe, ale przy nich nie wyskakuje żaden bład).Poza tym do momentu w którym się pojawia błąd nie
ma takiego momentu, aby aż tyle znaków (>255) nie było oddzielonych
średnikami. Aby dokładnie to pokazać przytaczam początkowy fragment
tej procedury:
procedure TMainForm.FormActivate(Sender: TObject);
var
y:TPrzebiegGryForm;
dus:integer;
begin
AssignFile(pl,'popraw.sss');
if FileExists('popraw.sss') then
begin
Reset(pl);
poprawnyClose:=true;
if (FileSize(pl)=0) then poprawnyClose:=false;
{jeszcze jakieś inne polecenia}
end;
ostatnia linijka (if (FileSize...) to ta w której pojawia się błąd.
Czym jest spowodowany ten błąd i jak go rozwiązać?