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;
__________________
SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
18 Mart 2015, 14:13
Benzer Konular 
Hybrid-Şeklinde
