array of char UpperCase

[mleyen]

Delphi-Quellcode:

var
  i: Integer;
begin
  for i := 0 to high(zTmp) do
  begin
    zTmp[i] := UpperCase(zTmp[i])[1];
  end;
end;

^^