Delphi 11 миграция

function HEX2DEC(HEX: string): LONGINT;

function Digt(Ch: CHAR): BYTE;
const
HEXDigts: string[16] = '0123456789ABCDEF';
var
I: BYTE;
N: BYTE;
begin
N := 0;
for I := 1 to Length(HEXDigts) do
if Ch = HEXDigts[I] then
N := I - 1;
Digt := N;
end;

const
HEXSet: set of CHAR = ['0'..'9', 'A'..'F'];
var
J: LONGINT;
Error: BOOLEAN;
DEC: LONGINT;
begin
DEC := 0;
Error := False;
for J := 1 to Length(HEX) do
begin
if not (UpCase(HEX[J]) in HEXSet) then
Error := True;
DEC := DEC + Digt(UpCase(HEX[J])) shl ((Length(HEX) - J) * 4);
{ 16^N = 2^(N * 4) }
{ N SHL ((Length(HEX) - J) * 4) = N * 16^(Length(HEX) - J) }
end;
if Error then
HEX2DEC := 0
else
HEX2DEC := DEC;
end;

HEXDigts: string = '0123456789ABCDEF';

procedure ConvertDataToBitmap(Data: TBytes; Bitmap: TBitmap);
const
tileWidth = 8;
tileHeight = 8;

var
p: PByteArray;
tilesInRow, tilesInColumn: Integer;
x, y, i, j: Integer;
dataSize: Integer;
begin
tilesInRow := Bitmap.Height div tileHeight;
tilesInColumn := Bitmap.Width div tileWidth;
dataSize := Length(Data);

for i := 0 to tilesInRow - 1 do
begin
for j := 0 to tilesInColumn - 1 do
begin
for y := 0 to tileHeight - 1 do
begin
p := Bitmap.ScanLine[i * tileHeight + y];
for x := 0 to (tileWidth div 2) - 1 do
begin
p[j * tileWidth + x] := Data[i * 32 * tilesInColumn + j * 32 + y * tileWidth + x];
end;
end;
end;
end;
end;

procedure ConvertDataToBitmap(Data: TBytes; Bitmap: TBitmap);
const
tileWidth = 8;
tileHeight = 8;

var
p: PByteArray;
tilesInRow, tilesInColumn: Integer;
x, y, i, j: Integer;
dataSize: Integer;
begin
tilesInRow := Bitmap.Height div tileHeight;
tilesInColumn := Bitmap.Width div tileWidth;
dataSize := Length(Data);

for i := 0 to tilesInRow - 1 do
begin
for j := 0 to tilesInColumn - 1 do
begin
for y := 0 to tileHeight - 1 do
begin
p := Bitmap.ScanLine[i * tileHeight + y];
for x := 0 to (tileWidth div 2) - 1 do
begin
p[j * (tileWidth div 2) + x] := Data[i * 32 * tilesInColumn + j * 32 + y * tileWidth div 2 + x];
end;
end;
end;
end;
end;

var
MyString: String;
MyStringLength: Integer;
MyStringLowerCase: String;
begin
MyString := 'Hello World!';
MyStringLength := MyString.Length;
MyStringLowerCase := MyString.ToLower;

// И даже так

MyStringLength := MyString.ToLower.ToUpper.Length;

//и ещё десятки функци манипулирования со строкой и десятки свойств.
//По сути всё что есть в C# для работы со строкой доступно и для Дельфи
end;

string ext = Path.GetExtension(myFilePath);