разбивка текста

[ji_ii]

привет всем =)

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

как сделать это деление О.о ?

[chertovich]

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

function Get1000(var Str: string; Count: Integer = 1000): string;
begin
  Result := Copy(Str, 1, Count);
  Delete(Str, 1, Count);
end;

Чтобы сделать более производительный нужно сделать указатель позиции и использовать PosEx

[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;