harf harf ayırma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
gercek
Üye
Mesajlar: 6
Kayıt: 07 Ağu 2003 11:18

harf harf ayırma

Mesaj gönderen gercek »

girilen bir cümleyi kullanıcının vereceği değerlere göre harf harf nasıl ayırabilirim.örnek delphi yi d e l p h i şeklinde nasıl ayrı ayrı yazdırabilirim.
mavsar

Mesaj gönderen mavsar »

Sadece stringi char char okuman yeterli. Örnek

Kod: Tümünü seç

var i:byte;
begin
  For i:=0 To Length(Edit1.Text) do
    Edit2.Text:=Edit2.Text+Edit1.Text[i]+' ';
end;
gibi..
Kullanıcı avatarı
lazio
Moderator
Mesajlar: 1526
Kayıt: 11 Tem 2003 04:55
Konum: İstanbul

Mesaj gönderen lazio »

copy( ) fonksiyonu ile de yapabilirsin

var
i : byte;
begin
for i := 1 to Length(edit1.text) do
if copy(edit1.Text, i, 1) = ' ' then
Continue
else
edit2.Text := edit2.Text + copy(edit1.Text, i, 1) + ' ';
end;
Cevapla