dann wird die länge als gesamte Textlänge bis #0 genommen. Probiers aus. Geht.
probier mal das:
Delphi-Quellcode:
DrawText((Sender as TStringGrid).Canvas.Handle,
PChar(Cells[ACol, ARow]),
-1,
R,
DT_CENTER or DT_VCENTER or DT_SINGLELINE);
Grrr roter Kasten!!