AnsiStrUpper

TomRiddle
AnsiStrUpper
Moduł: SysUtils
function AnsiStrUpper(Str: PChar): PChar;

Funkcja zamienia każdą literę na wielką. Jej odpowiednikiem jest UpperCase.

program Foo;
 
uses
  SysUtils;
 
{$APPTYPE CONSOLE}
 
var
  S: String;
 
begin
  S := '4pRoGrAmMeRs.NeT';
  Writeln(AnsiStrUpper(PChar(S))); // Zobaczymy "4PROGRAMMERS.NET"
end.

Zobacz też:

0 komentarzy