[Lazarus] Strange code in fpc syscodepages.inc

classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

[Lazarus] Strange code in fpc syscodepages.inc

Free Pascal - Lazarus mailing list
//break after exit

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

begin
...

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

--
Regards,
Alexey

--
_______________________________________________
Lazarus mailing list
[hidden email]
https://lists.lazarus-ide.org/listinfo/lazarus
Reply | Threaded
Open this post in threaded view
|

Re: [Lazarus] Strange code in fpc syscodepages.inc

Free Pascal - Lazarus mailing list
On 23.05.2018 12:00, AlexeyT via Lazarus 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
--
_______________________________________________
Lazarus mailing list
[hidden email]
https://lists.lazarus-ide.org/listinfo/lazarus