Código Delphi [-] if (stringgrid1.Col = 2) then if length(stringgrid1.Cells[2, stringgrid1.row]) <= 50 then CharUpperBuff(@Key, 1) else begin str := stringgrid1.Cells[2, stringgrid1.row]; stringgrid1.Cells[2, stringgrid1.row] := Copy(str, 1, 50); end;
if (stringgrid1.Col = 2) then if length(stringgrid1.Cells[2, stringgrid1.row]) <= 50 then CharUpperBuff(@Key, 1) else begin str := stringgrid1.Cells[2, stringgrid1.row]; stringgrid1.Cells[2, stringgrid1.row] := Copy(str, 1, 50); end;