function AnsiLowerCase(const S: string): string;

function AnsiLowerCase(const S: string): string;

Возвращает исходную строку, в корой все заглавные буквы заменены на строчные (с учетом кирилицы)

function AnsiUpperCase(const S: string): string;

Возвращает исходную строку, в корой все строчные буквы заменены на заглавные (с учетом кирилицы)

Примеры программ

program Project2;

{$APPTYPE CONSOLE}

{$H+}

uses SysUtils;

Type TString = Array[1..7] of char;

var s1:ShortString;

S2:String[5];

S3:TString; L_s2,L_s3:Integer;

begin

S2:='12345'; {Распечатать 0 элемент не удалось}

S3:='6789000'; { В ТП это не возможно}

L_s2:=Length(S2); {12345}

L_s3:=Length(S3); {6789000]

Writeln (s2); Writeln (s3);

Writeln (L_s2); {5}

Writeln (L_s3); {7}

Readln;

end.

⇐ Предыдущая 1 23