Simba Code:
Function ReturnUptextPixels(Text: string): integer;
var
i, i2, i3, L: Integer;
Letter: String;
Alphabet: TStringArray;
LowerP, UpperP: TIntegerArray;
begin
SetLength(UpperP, 25);
LowerP := [24, 33, 16, 33, 24, 27, 37, 34, 12, 25, 31, 20, 36, 26, 24, 33, 31 +
15, 20, 21, 24, 20, 28, 22, 34, 20];
UpperP := [42, 43, 26, 41, 30, 26, 37, 42, 28, 30, 36, 24, 48, 53, 38, 32, 43 +
41, 26, 24, 42, 36, 50, 38, 28, 28];
Alphabet := ['A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', +
'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z'];
{ L := Length(Text);
Writeln(ToStr(L)); }
Writeln(ToStr(UpperP[16]));
{ for i := 1 to L do //Round(L-(L/sqr(L)))
begin
for i2 := 0 to 25 do
begin
// Writeln('loop1');
if (PosEx(Alphabet[i2], Text, i) = i) then
for i3 := 0 to 25 do
begin
Letter := Alphabet[i2];
// Writeln(':(2');
if (Letter = Alphabet[i3]) then
begin
Writeln(Alphabet[i3]);
if (i3 = 25) then
begin
Writeln(IntToStr(UpperP[i3-1]));
IncEx(Result, UpperP[i3-1]);
end else begin
IncEx(Result, UpperP[i3]);
Writeln(IntToStr(UpperP[i3]) + ': ' + Alphabet[i3]);
end;
break;
end;
if (Letter = lowercase(Alphabet[i3])) then
begin
Writeln(Alphabet[i3]);
IncEx(Result, LowerP[i3]);
continue;
end;
end;
end;
end; }
end;
WHY IS Q = 84 WHEN IT'S SET AT 43, I EVEN TRIED SetLength!