ilk 100 karakter

[sr1111]

620 karakterlik yazm var.

bunu 100 karakter 100 karakter memo1, memo2, memo3 e veya stringe atmak kopya etmek istiyorum

fakat şöyle olmali
100 karakterde kelimeyi kesmemeli. kesecekse sondan bir onceki bosluga kadar olan kismi kopya etmeli memolara.
bu sekilde kac karakter ise o kadar memo veya stringe kopya etmek istiyorum texti yazıyı.

nasıl yapabilirim acaba.

[destiny24]

aşağıdaki gibi kullanılabilir belki.Kodları elle yazdım hata olabilir.
Kolay Gelsin

var
OlusanKelime: String;
i: Integer;

for i := 0 to Length(Cumle) - 1 do
begin
if (i >= 100) then
begin
if (Length(Cumle) > 100) then // tam 100 karakter olabilir
begin
if (Cumle[i+1] <> '.') and (Cumle[i+1] <> ' ') and (Cumle[i+1] <> '!') and (Cumle[i+1] <> '?') then
begin
OlusanKelime := OlusanKelime + Cumle;
end
else
break;
end;
end;
OlusanKelime := OlusanKelime + Cumle;
end;