[Lazarus] Strange code in fpc syscodepages.inc

AlexeyT aaa5500 at ya.ru
Wed May 23 12:00:24 CEST 2018


//break after exit

function CodePageToCodePageName(cp: TSystemCodePage): AnsiString;
..

begin
...

    if FoundCp = cp then
     begin
       Exit(CodePageNames[I].name);
       Break;
     end;

-- 
Regards,
Alexey



More information about the Lazarus mailing list