Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Rakam ve Karakterli Toplama
#1
Arkadaşlar Merhaba ; Tablodaki bir alanım Efatura gereği hem Karakter hemde rakam ifadesi alıyor bende son rakamı bir artırmalıyım şöyle bir kod yaptım ama bu seferde içerisinde yer alan sıfırları siliyor. Çıkmaza girdim yardımcı olabilir misiniz?

Tablodaki Alanın aldığı değer : "GSM000000452689" 
Kodda şunu yaptım;
ilk 3 değeri aldım "GSM"

Sonra son 12 değeri "000000452689"
sonra bir arttırmak istedim bu sefer de rakamı karaktere çevirince sıfırlar gitti bir arttı şöyle oldu
Sonra son 12 değeri "452690"
Birleştirince "GSM452690" aradaki sıfırlar kayboldu 



procedure TForm23.DBGrid1DblClick(Sender: TObject);
Var
EFATSERI,EFATSERISN:AnsiString;
begin
FatuNo.Close;
FatuNo.SQL.Clear;
FatuNo.SQL.Text:='select MAX(NUMARA) AS SONKAYIT from TBLFATUNO WHERE SUBE_KODU=''0'' AND TIP=''1'' AND NUMARA LIKE ''000%''';
FatuNo.Open;

Edit2.Text :=FatuNo.FieldByName('SONKAYIT').Text;

EFATSERI := AnsiLeftStr((Edit2.Text),3);
EFATSERISN := AnsiMidStr((Edit2.Text),4,12);
EFATSERILK.Text := EFATSERI;
EFATSERSON.Text := EFATSERISN;

Edit2.Text:=(EFATSERILK.Text + IntToStr(StrToInt(EFATSERSON.Text)+1));
Edit5.Text :=FatuNo.FieldByName('SONKAYIT').Text;
Edit7.Text:=Label19.Caption+Edit2.Text+DBEdit2.Text;
Yapmak istediğim "GSM00000000452690" 15 haneye tamamlamak.
Cevapla


Bu Konudaki Yorumlar
Rakam ve Karakterli Toplama - Yazar: OZCANK - 15-04-2019, Saat: 08:24
Rakam ve Karakterli Toplama - Yazar: 3ddark - 15-04-2019, Saat: 08:41
Cvp: Rakam ve Karakterli Toplama - Yazar: OZCANK - 16-04-2019, Saat: 07:47
Cvp: Rakam ve Karakterli Toplama - Yazar: Tuğrul HELVACI - 15-04-2019, Saat: 08:48
Rakam ve Karakterli Toplama - Yazar: adelphiforumz - 15-04-2019, Saat: 11:29
Cvp: Rakam ve Karakterli Toplama - Yazar: Tuğrul HELVACI - 15-04-2019, Saat: 12:02
Cvp: Rakam ve Karakterli Toplama - Yazar: adelphiforumz - 15-04-2019, Saat: 16:21
Cvp: Rakam ve Karakterli Toplama - Yazar: OZCANK - 15-04-2019, Saat: 12:16
Cvp: Rakam ve Karakterli Toplama - Yazar: adelphiforumz - 15-04-2019, Saat: 12:36
Rakam ve Karakterli Toplama - Yazar: mrmarman - 16-04-2019, Saat: 08:51
Cvp: Rakam ve Karakterli Toplama - Yazar: OZCANK - 16-04-2019, Saat: 10:10
Cvp: Rakam ve Karakterli Toplama - Yazar: Tuğrul HELVACI - 16-04-2019, Saat: 10:41
Cvp: Rakam ve Karakterli Toplama - Yazar: SimaWB - 16-04-2019, Saat: 10:53
Cvp: Rakam ve Karakterli Toplama - Yazar: OZCANK - 16-04-2019, Saat: 11:03
Cvp: Rakam ve Karakterli Toplama - Yazar: OZCANK - 16-04-2019, Saat: 12:11
Rakam ve Karakterli Toplama - Yazar: uparlayan - 16-04-2019, Saat: 11:10
Rakam ve Karakterli Toplama - Yazar: uparlayan - 16-04-2019, Saat: 12:15
Rakam ve Karakterli Toplama - Yazar: SimaWB - 16-04-2019, Saat: 12:15
Cvp: Rakam ve Karakterli Toplama - Yazar: elixir84 - 16-04-2019, Saat: 12:30
Cvp: Rakam ve Karakterli Toplama - Yazar: OZCANK - 16-04-2019, Saat: 12:47
Cvp: Rakam ve Karakterli Toplama - Yazar: SimaWB - 16-04-2019, Saat: 13:03

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  fastreport nesnesinde ki memoları tek memo da toplama nmtsltn 13 2.117 23-11-2018, Saat: 15:53
Son Yorum: mcuyan
  Parayı çarpma ve toplama işlemi serhat 15 3.130 17-06-2017, Saat: 22:35
Son Yorum: meko



Konuyu Okuyanlar: 1 Ziyaretçi