AnsiStrLower
Riddle
AnsiStrLower
Moduł: SysUtils
program Foo;
uses
SysUtils;
{$APPTYPE CONSOLE}
var
S: String;
begin
S1 := '4pRoGrAmMeRs';
Writeln(AnsiStrLower(PChar(S1))); // Zobaczymy "4programmers"
end.
Zobacz też:
program Foo;
uses
SysUtils;
{$APPTYPE CONSOLE}
var
S: String;
begin
S1 := '4pRoGrAmMeRs';
Writeln(AnsiStrLower(PChar(S1))); // Zobaczymy "4programmers"
end.
Zobacz też: