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