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 :*
