//break after exit
function CodePageToCodePageName(cp: TSystemCodePage): AnsiString;
..
begin
...
if FoundCp = cp then
begin
Exit(CodePageNames[I].name);
Break;
end;Regards,
Alexey
Mailing lists / lazarus / 2018-05
Strange code in fpc syscodepages.inc
2 messages · 2 people ·
- AlexeyT 1
- Ondrej Pokorny 1
Reply by email Subscribe to this list Your subscription
Read-only archive. Use j and k to move between messages.
AlexeyT wrote//break after exit function CodePageToCodePageName(cp: TSystemCodePage): AnsiString;
You wrote to wrong mailing list. The above code and unit is in FPC, thus one of the FPC mailing list is more appropriate because FPC developers read them.
Ondrej