Как разбить текст по определённому количеству символов?

Posted by Chas under Пост-обзор

надо сделать так чтоб текст из файла делился примерно по 1000 символов и такими порциями отправлялся..
как сделать это деление?

chertovich:

Самый простой, но в тоже время непроизводительный метод:

function Get1000(var Str: string; Count: Integer = 1000): string;

begin

  Result := Copy(Str, 1, Count);

  Delete(Str, 1, Count);

end;

SERG1980:

Считывайте ваш файл в Stream и копируй сколько тебе надо

var st1,st2:TMemoryStream;

begin

 st1:=TMemoryStream.Create;

 st2:=TMemoryStream.Create;

 st1.LoadFromFile('путь к файлу');

 st1.Seek(0,0);

 st2.CopyFrom(st1,1000);

 st2.SaveToFile('путь к файлу');

 st1.Free;

 st2.Free;

end;

тема на форуме

Похожие статьи

• Пример работы со строками в delphi
• Как вставить в текст знак апостроф — ‘?
• Как удалить пустую строку в memo?
• Перенести программу из Delphi в Lazarus
• Функция pos, как искать далее?
• Выполнение задач на Assembler при нажатии на клавишу
• Как правильно делать автоматическое создание столбцов с картинками в виде таблицы
• Подсчет числа слов в строке по заданному условию
• Работа со строками, замена символов
• Тест в Delphi с помощью RadioGroup