Ergebnis der Suchanfrage

• Forum: FreePascal

  AW: Text zur Anzeige kürzen mit Punkte hinten

   
    by BUG, 28. Okt 2011
  Der schönste Ansatz ist es nicht gerade, aber vielleicht kannst du damit was anfangen:
  function shortenString(c: TCanvas; s: string; w: integer; dots: boolean): string;
  var
  exploder: TStringList;
  appendDots: boolean;
  begin
  exploder := TStringList.Create;
  exploder.Delimiter := ' ';
  exploder.DelimitedText := trim(s);
  appendDots := False;