StringGrid Zellentext auf 50 Bytes begrenzen

[shebang]

Zitat von Helmi:

Wie kann ich das realisieren?

Delphi-Quellcode:

var
  str: string;
  encoding: TEncoding;
  bytes: TArray<Byte>;
  len: Integer;
begin
  str := 'Das ist ein langer Text mit genau fünfzig Zeichen!';
  encoding := TEncoding.UTF8;
  bytes := encoding.GetBytes(Str);
  len := Length(bytes); // Ergebnis 51

  str := 'Das ist ein langer Text mit genau funfzig Zeichen!'; // ü-> u
  bytes := encoding.GetBytes(Str);
  len := Length(bytes); // Ergebnis 50