Harf aralığı

[aydogan46]

Herkese merhaba;
bir editin içerisine, harfleri aralıklı yazdırmak istiyorum bu mümkün mü? veriler veri tabanından gelecek.
edit1.text:=deneme şeklinde değilde edit1.text:= d e n e m e şeklinde
. ilgilinize şimdien teşekkürler

[selimr]

Kod: Tümünü seç

var
yedit : string
i       : integer;
begin
   for i:= 1 to edit1.GetTextLen do  yedit := copy(edit1.text,i,1)+' ';
   edit1.text := yedit;
end;

[aydogan46]

hocam bu sadece yazdığım kelimenin son harfini veriyor.
yada ben tam olarak anlatamadım

[selimr]

pardon hata yapmışım..

bu satırı
for i:= 1 to edit1.GetTextLen do yedit := copy(edit1.text,i,1)+' ';

şu yekilde değiştir..

for i:= 1 to edit1.GetTextLen do yedit := yedit + copy(edit1.text,i,1)+' ';

[aydogan46]

teşekkür ederim hocam. işimi gördü sağolasın

[tuanna]

Kod: Tümünü seç

Function kelimeayir(txt:string;Bosluksayisi:integer):string;
var
tmp:string;
don:integer;
bolsukdon:integer;
Begin
tmp:='';
For don:= 1 to length(txt) do
begin
 tmp:=tmp+copy(txt,don,1);

 For bolsukdon:=1 to bosluksayisi do
      begin
      tmp:=tmp+' ';
      end;

end;
Result:=tmp;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(kelimeayir(edit1.Text,10));
end;

[aydogan46]

peki hocam bu aralığı bir aralık değilde mesela harf beştane boşluk ikinci harf gibi yapmamız mümkün mü?

[tuanna]

sanırım istediğin gibi oldu yukarıda tekrar düzenledim ben

[selimr]

mümkün tabi

for i:= 1 to edit1.GetTextLen do yedit := yedit + copy(edit1.text,i,1)+' ';

burda.... + ' ': kısmında tırnaklar arasına istediğin kadar boşluk

koyabilirsin.