Selam kardeşler,
Off geçen postta, her gün bir içerik gireceğim deyip 2 yıl uğramamışım buralara….
Neyse efendim, yine über projelerde gezerken ufak bir kod lazım oldu. Çünkü müşteriler sayısal veri girerken -sebebini sadece ve sadece yaratıcı bilir- girdinin başına sıfır -0- yazıyorlarmış.
Bize de bu sıfırları çaktırmadan silmek düşer (:
Function SifirSil(tmpStr:String):String; begin if LeftStr(tmpStr,1) = '0' then begin while LeftStr(tmpStr,1) = '0' do begin Delete(tmpStr, 1,1); end; end; Result := tmpStr; end;
Kalın selametle :*