StringGrid Zellentext auf 50 Bytes begrenzen

[QuickAndDirty]

Zitat von 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

Würde es nicht alles prima funktionieren Ansi Encoding mit Codepage zu verwenden. Es muss halt nur die Codepage bekannt sein.

Delphi-Quellcode:

type GermanString = type AnsiString(1252);
var
  bytes: TArray<Byte>;
  len: Integer;
begin
  var Utf8Str:String := 'Das ist ein langer Text mit genau fünfzig Zeichen!';
  var Utf8Encoding := TEncoding.UTF8;
  bytes := Utf8Encoding.GetBytes(Utf8Str);
  len := Length(bytes); // Ergebnis 51
  Showmessage(len.tostring);

  var Ansistr:GermanString := 'Das ist ein langer Text mit genau fünfzig Zeichen!';
  var AnsiEncoding := TEncoding.ANSI;
  bytes := AnsiEncoding.GetBytes(Ansistr);
  len := Length(bytes); // Ergebnis 50
  Showmessage(len.tostring);

[Helmi]

Hallo und Danke für die Antworten.

Hab es nun wie folgt gelöst:

Delphi-Quellcode:

procedure TMainForm.StringGrid_InfoTextSetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: string);
const
  max_Bytes = 50;

var
  Encoding: TEncoding;
  Bytes: TArray<Byte>;
  len_Bytes: Integer;
  max_Chars: Integer;

begin
  max_Chars := 50;

  If ARow > 0 then
    begin
      //3. Spalte
      If ACol in [2] then
        begin
          Encoding := TEncoding.UTF8;
          Bytes := Encoding.GetBytes(Value);
          len_Bytes := length(Bytes);

          If len_Bytes > max_Bytes then
            begin
              max_Chars := length(Value);
              THackedStringGrid(Sender).Selection := TGridRect(Rect(-1,-1,-1,-1));
              THackedStringGrid(Sender).Cells[ACol, ARow] := copy(Value, 1, max_Chars - 1);
            end;

          //Eingabe begrenzen
          SendMessage(THackedStringGrid(Sender).InplaceEditor.Handle, EM_SETLIMITTEXT, max_Chars, 0);
        end;
    end;
end;