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
string dizimi yardim
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- sabanakman
- Kıdemli Üye
- Mesajlar: 3077
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
Re: string dizimi yardim
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;
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .