IntToStrSabit(Sayi:integer,Sabitlength:integer):string

[tanerileri]

Bu gibi bir fonksiyon yapmak istiyorum , biliyorum çok basit bir işlem ama bir türlü için işinden çıkamadım , istediğim şey şu:

187,8 girdiğimde , 00000187 (8 karekter)
187,5 girdiğimde , 00187 (5 karekter) gibi string döndürecek bir fonksiyon.

0 ları karekter kadar kopyalacayacak fonksiyonu bir türlü yapamadım

Teşekkürler

[rsimsek]

Hocam tekrarlama için muhtemelen bilmediğim bir string fonksiyonu olabilir Ama aşağıdaki kod da işini görür.

Kod: Tümünü seç

function IntToStrSabit(Sayi: integer; Sabitlength: integer): string;
begin
  result := FormatFloat(copy('000000000000000',1, SabitLength), Sayi)
end;

[husonet]

Hazır Fonksiyonla yapılıyor olması lazım ama hatırlayamadım.

Kod: Tümünü seç

function SayiFormatla(int:integer;howChar:integer):String;
var
    i,f:integer;
    str:string;
begin
    i:=0;
    f:=howChar-length(inttostr(int));
    while i < f do
    begin
        str:=str + '0';
        inc(i);
    end;
    result := str + inttostr(int);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    edit1.Text:= sayiformatla(strtoint(edit1.Text),8);
end;

Kolay Gelsin...

Recep abi hızlısın maaşallah

[rsimsek]

Kardeş her yiğidin bir yoğurt yiyişi var. Önemli olan olayı çözmek öyle yada böyle.. Algoritmik olarak sorunu çözsen de bazen teknolojinin getirdiklerini de kullanmak gerekir

[husonet]

hehe haklısın abi ya uzun süredir php iye daldım unutmak kötü oluyor

[mrmarman]

Hocam, hafıza tazeleyim. FORMAT fonksiyonundan içi içe iki tane kurmayı denemek kafi...

Kod: Tümünü seç

Function IntToStrSabit(Sayi, Sabitlength:integer):string;
begin
  Result := Format(Format('%%.%dd', [SabitLength]), [Sayi]);
end;

[rsimsek]

Kardeş her yiğidin bir yoğurt yiyişi var.

Aslında bundan sonra söylemem gerekiyordu

[fduman]

Kod: Tümünü seç

function LeadingZero(const Value, StrLength: Integer): string;
begin
  Result:= Format('%.' + IntToStr(StrLength) + 'd', [Value]);
end;

Ben böyle yoğurt yiyorum.

[Hakan Can]

Farklı bir yöntem:

Kod: Tümünü seç

function IntToStrConst(aNumber: Int64; aConstLength: Byte): string;
begin
  Result := FormatFloat(DupeString('0', aConstLength), aNumber);
end;

[sadettinpolat]

yok mu artıran

[fduman]

E yeter artık sadettin. Daha ne olsun?

[rsimsek]

Şamata yapıp geçiştirmeye kalkma Sadettin, sıra sendeydi

[selimr]

Kod: Tümünü seç

function TForm1.abc(a: string; b: integer): string;
begin
  result := stringofchar('0',b-length(a)) + a;
end;               

[fduman]

Hile yapmışsın. A'nın string değil Integer parametre olması gerekiyordu.

[sadettinpolat]

Şamata yapıp geçiştirmeye kalkma Sadettin, sıra sendeydi

eyvah! yakalandik