string dizimi yardim

[sr1111]

merhaba
bu şekilde bir metnim var
3 lu bosluklardan sonra kelimeleri asagidaki gibi nasıl dizerim.

ana metin
Safahat en önemli eserlerindendir. II. Meşrutiyet döneminden itibaren Sırat-ı Müstakim

yukaridaki metni asagidaki bu sekilde nasil dizerim;
Safahat en önemli
en önemli eserlerindendir.
önemli eserlerindendir. II.
eserlerindendir. II. Meşrutiyet
II. Meşrutiyet döneminden
Meşrutiyet döneminden itibaren
döneminden itibaren Sırat-ı
itibaren Sırat-ı Müstakim

[sabanakman]

Kod: Tümünü seç

const n=3;
var i,j:Integer; Lst:TStringList; S:String;
begin
  Lst:=TStringList.Create;
  try
    Lst.Delimiter:=' ';
    Lst.DelimitedText:='Safahat en önemli eserlerindendir. II. Meşrutiyet döneminden itibaren Sırat-ı Müstakim';
    ListBox1.Items.Clear;
    for i:=0 to Lst.Count-n do begin
      S:=Lst[i];
      for j:=1 to n-1 do S:=Format('%s %s',[S, Lst[i+j]]);
      ListBox1.Items.Add(S);
    end;
  finally
    Lst.Free;
  end;
end;

[sr1111]

tesekkur ederim