[Misterhomer]

как в мемо добавить например текст из 100 символов, и добавить так, чтобы в строку записывалось только по 15 символов?

[AleD]

Сообщение от Misterhomer

как в мемо добавить например текст из 100 символов, и добавить так, чтобы в строку записывалось только по 15 символов?

в событии OnChange у TMemo это вписать:

Код:

var
  total: Word;
  i: Integer;
begin
  total := 0;
  for i:=0 to mmInput.Lines.Count-1 do
  begin
    if(Length(mmInput.Lines[i])+total>100)then
      mmInput.Lines[i] := Copy(mmInput.Lines[i], 1, 100-total);
    if(Length(mmInput.Lines[i])>15)then
      mmInput.Lines[i] := Copy(mmInput.Lines[i], 1, 15);
    Inc(total, Length(mmInput.Lines[i]));
  end;
end;