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

[fduman]

Ben bu saatten sonra Sadettin'den bir Assembler kodu bekliyorum artık.

[selimr]

tamam

Kod: Tümünü seç

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

[aslangeri]

Ben bu saatten sonra Sadettin'den bir Assembler kodu bekliyorum artık.

sadettin yazamaz makinesi benim elimde....

[sadettinpolat]

Ben bu saatten sonra Sadettin'den bir Assembler kodu bekliyorum artık.

ben artık kod yazmıyorum. bilgisayarı bile devrettim. albüm çıkartacam , şöhret olacam

[rsimsek]

Bak yine kaytarıyorsun kardeş İsteriz, isteriz, isteriz

Arkadaş en uzun kod da assembly ile yazılır yahu Saadettin'in neden kıvırdığını şimdi anladım

[husonet]

En uzun kod beni yazmışım iiimi

[rsimsek]

En uzun kod beni yazmışım iiimi

Hüso en iyi kod; havada-karada, yağmurda-çamurda, karda-kışta basit ve çalışan koddur.. takma kafana

[sadettinpolat]

İsteriz, isteriz, isteriz

seni kırmam mümkün değil recep abi
eski bilgileri hatırlamak biraz zor oldu ama yarı asm yar pascal yaptık bişeler

@huso: en uzun kod rekorunu da elinden almış oldum

Kod: Tümünü seç

function LeadingZero(Const Value, strLength:integer):String;
var
strSonuc:String[10];
strSayi:String[10];
SifirSayisi:integer;
uzunluk:integer;
begin
strSayi :=inttostr(Value);
strSonuc:='0000000000';
uzunluk := length(strSayi);
SifirSayisi:=strLength- length(strSayi);
asm
xor ebx,ebx
xor eax,eax
xor edx,edx
xor ecx,ecx
lea ebx,strSayi
lea edx,strSonuc
mov ecx,SifirSayisi
mov eax,strlength
mov byte ptr [edx],al

@Devam: lea edx,[edx+1]
        loop @devam
xor ecx,ecx
mov ecx,uzunluk
lea eax,strsayi
lea eax,[eax+1]
lea edx,[edx+1]
@ekle:
xor ebx,ebx
mov byte ptr bl, [eax]
mov [edx], bl
lea eax,[eax+1]
lea edx,[edx+1]
    loop @ekle;

end;

result :=strSonuc;
//ucret karşılığında araya virgülde atılır :)
end;

[husonet]

İsteriz, isteriz, isteriz

seni kırmam mümkün değil recep abi
eski bilgileri hatırlamak biraz zor oldu ama yarı asm yar pascal yaptık bişeler

@huso: en uzun kod rekorunu da elinden almış oldum

Kod: Tümünü seç

function LeadingZero(Const Value, strLength:integer):String;
var
strSonuc:String[10];
strSayi:String[10];
SifirSayisi:integer;
uzunluk:integer;
begin
strSayi :=inttostr(Value);
strSonuc:='0000000000';
uzunluk := length(strSayi);
SifirSayisi:=strLength- length(strSayi);
asm
xor ebx,ebx
xor eax,eax
xor edx,edx
xor ecx,ecx
lea ebx,strSayi
lea edx,strSonuc
mov ecx,SifirSayisi
mov eax,strlength
mov byte ptr [edx],al

@Devam: lea edx,[edx+1]
        loop @devam
xor ecx,ecx
mov ecx,uzunluk
lea eax,strsayi
lea eax,[eax+1]
lea edx,[edx+1]
@ekle:
xor ebx,ebx
mov byte ptr bl, [eax]
mov [edx], bl
lea eax,[eax+1]
lea edx,[edx+1]
    loop @ekle;

end;

result :=strSonuc;
//ucret karşılığında araya virgülde atılır :)
end;

harbiden tam şovluk bir topik oldu

[rsimsek]

Hocam vur dedik öldürdün be ya Kısası buysa uzun halini kullanmak daha iyi Bir zamanlar, 16 bit zamanlarında MASM derleyicisi ile assembly ile yazdığım kütüphaneleri şimdi neyi nasıl yazdığımı unutmuş olsam da halen kullanırım

[fduman]

eski bilgileri hatırlamak biraz zor oldu ama yarı asm yar pascal yaptık bişeler

Güzel başlık oldu. Eğlendik. Bravo sadettin.

[t-hex]

bu da recursion ile yapılanı. çeşit olsun diye

Kod: Tümünü seç

Function IntToStrSabit(Sayi, SabitLength:integer):string;
begin
  if (SabitLength = Length(IntToStr(Sayi))) then begin Result := IntToStr(Sayi); exit; end;
  Result := '0' + IntToStrSabit(Sayi,SabitLength-1);
end;

[fduman]

Format fonksiyonunu baştan yazdık nerdeyse.

[rsimsek]

bu da recursion ile yapılanı. çeşit olsun diye

Kod: Tümünü seç

Function IntToStrSabit(Sayi, SabitLength:integer):string;
begin
  if (SabitLength = Length(IntToStr(Sayi))) then begin Result := IntToStr(Sayi); exit; end;
  Result := '0' + IntToStrSabit(Sayi,SabitLength-1);
end;

Hocam bu yarışma dışı.. çünkü şike yaptın, az satır olsun diye satırları yanyana yazmışsın Delphi raconuna ters

[t-hex]

Hocam bu yarışma dışı.. çünkü şike yaptın, az satır olsun diye satırları yanyana yazmışsın Delphi raconuna ters

Hocam, haklısın ama ne yapayım belki farkedilmez dedim