IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - sayıyının önünü 0 doldurup string yapan function

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - sayıyının önünü 0 doldurup string yapan function (https://www.ircforumlari.net/delphi/689508-sayiyinin-onunu-0-doldurup-string-yapan-function.html)

Kaf_Dağı

18 Mart 2015 14:13

sayıyının önünü 0 doldurup string yapan function

Kod:

function TRamazan.tamamla(yaziyi: string; sayiyi: integer): string;

var sayix:integer;yazix:string;

begin

yazix:='';

if length(yaziyi)<sayiyi then

begin

for sayix:=1 to sayiyi-length(yaziyi)do

yazix:=yazix+'0';

end;

result:=yazix+yaziyi;

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:46.