| sayıyının önünü 0 doldurup string yapan function
Kod: Kodu kopyalamak için üzerine çift tıklayın! 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.
|