Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Aradan sil
#1
Selamlar, Excelden (YERLİ) ( 650809-0001080)*WPS gibi farklı id numaraları db'ye kaydediyorum, kayıt sırasında aradan  "-" dan sonra kırmızı renk ile belirlediğim "0" ları silmem lazım bu yöntemi nasıl yapabilirim?


function TForm2.RIdTemizle(Harf: String): String;
const
  Sil: String = 'ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZQX()"*£_<>;:~,+?=!^%&[]{}?\/ ';
var
  N: Integer;
begin
  for N := 1 to length(Sil) do
  begin
    Harf := StringReplace(Harf, Sil[N], '', [rfReplaceAll]);
    Result := Harf;
  end;
end;
Cevapla
#2
0 Adeti değişebilir mi ?

(YERLİ) ( 650809-001080)*WPS
(YERLİ) ( 650809-0101080)*WPS

gibi olma ihtimali var mı ?

amaç treden sonraki rakamların önündeki sıfırları silmek ise, 0001080 burayı copy ile al integer'a çevir sonra strginge çevir
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#3
1- String içinde tirenin pozisyonu bulunmalı
2- Bu pozisyondan itibaren kaç adet sıfır varsa, tire+0'lar şeklinde substring elde edilmeli
3- String içinde bulunan bu substring yerine sadece tire yazılmalı

 
  s, sub_str: string;
  i, j: integer;
begin
  s := '(YERLİ) ( 650809-0001080)*WPS';
  i := Pos('-', s);
  sub_str := '-';
  for j := i+1 to Length(s) do
  begin
    if s[j] <> '0' then
      break;
    sub_str := sub_str + s[j];
  end;
  s := StringReplace(s, sub_str, '-', [rfReplaceAll]);
There's no place like 127.0.0.1
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter





Konuyu Okuyanlar: 1 Ziyaretçi