function Cevir : String;const hanex : array of String = ( , , ; katx : array of String = ;var Kat : Integer;function _Cevir : String;var lsy, hn : Integer;begin Result := ''; if sy = '' then Exit; if (sy = '1') and (kat = 1) then begin Result := 'Bin'; Exit; end; hn := 0; lsy := length ; while (hn < 3) and do begin Result := hanex[hn, sy ] + Result; Inc ; end; Result := Result + katx ; Inc ; if lsy > 3 then Result := _Cevir(copy(sy, 1, lsy - 3)) + Result;end;begin Result := ''; kat := 0; Result := _Cevir(formatFloat('##0', int ;end; Bittik biz bittik

arkadaşlar başka cevap verecek yok mu? okulu bu yıl bitirmeliyim. "biz televizyon izleyerek, milyonerler, sinema tanrıları, rock yıldızları olacağımıza inanarak büyüdük ama olamayacağız... hepimiz heba oluyoruz... bütün bir nesil benzin pompalıyor, garsonluk yapıyor ya da beyaz yakalı kle olmuş... reklamlar yüzünden araba ve kıyafet peşindeyiz... nefret ettiğimiz işlerde çalışıyor, gereksiz şeyler alıyoruz..

Arkadaşa zel mesaj ile yazdım burada da bulunsun lazım olan olur belki. Sayıyı yazıya çevirmek mantık olarak zor değil. 4-5 dizi yapacaksın. Aşağıdaki gibi olabilir mesela birler= onlar= Bu şekilde diziler oluşturacaksın. Sayıyı 1'ler basamağı, 10'lar basamağı şeklinde ayırman gerek. Stringe çevirip sağdan 1 karakter 1 karakter alabilirsin. En sağdakini birler'den çevirirsin. Diğerini onlar'dan o şekilde gider. Mesela a değişkenine birler basamağını attın. birler dersen yazı karşılığı gelir. Basamak bulma işinin farklı yolu da var. Stringe çevirmezsin. 1000'e blersin 1000'ler basamağını bulursun. Sonra 1000'e blünmüş halini 100'e blersin 100'ler basamağını bulursun. Bu şekilde istediğin kadar basamak bulabilirsin. Değişik mantıklar düşünerek en kısa ve sayı büyüdüğünde ek işlem yapmayı gerektirmeyecek hale getirilebilir.

Hocam arkadaş yazmışya işte Edit1. Text := string1 + string2; string1:= "haydar";string2:= "ali"; Edit1. text := string1+ " " + string2;edit1 in içeriği haydar ali olacaktır... daha ne istiyosun :| Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)

Merhaba arkadaşlar benim bir sorum vardı;1)Delphi'de edit'e girilen 5 haneye kadar olan sayıları yazıya çeviren delphi programı için yardımlarınıza ihtiyacım var.2)iki string değeri birleştirip yazdırma işlemini delphi de nasıl yaparım. Sevgilerimle, şimdiden sağolun. "biz televizyon izleyerek, milyonerler, sinema tanrıları, rock yıldızları olacağımıza inanarak büyüdük ama olamayacağız... hepimiz heba oluyoruz... bütün bir nesil benzin pompalıyor, garsonluk yapıyor ya da beyaz yakalı kle olmuş... reklamlar yüzünden araba ve kıyafet peşindeyiz... nefret ettiğimiz işlerde çalışıyor, gereksiz şeyler alıyoruz..

Yüksekokulda yle bir proje yapmıştım. Sesli okuyordu aynı zamanda. Bulursam kodları yollarım sana. 2 string'i delphi'de birleştirmek için araya + koymak yeterli. Edit1. Text := string1 + string2;