database alanlarinin istenildigi sekile getirme

[rapsodim]

15 karakter uzunlugundaki bir alan var.ama bu alan içerisinde bulunan kayıtlar farklı uzunlukta (ornegin 25000 gibi) bu değeri 000000000025000 haline nasıl getirebilirim.

[naile]

Eğer bunu delphide yapmak istiyorsan kolay,bir functiona bu değeri gönder, uzunluğu 15 olana kadar başına 0 eklet.

[rapsodim]

bu dedıgınız nasıl koda dokecegım bunu acıklayabılırmısınız?

[husonet]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
    EditCek:Integer;
    EditYolla:String;
begin
    EditCek := 123333;
    EditYolla := '';
    FmtStr(EditYolla,'%.15d', [EditCek]);
    Edit1.Text := EditYolla;
end;

Yukarıda vermiş olduğum kodu bir incele şayet veritabanındaki alanlarda bunu yapmak istiyorsanız alanlarınız integer tanımlı ise butipte bir kayıt alanlara yapamazsınız

Kolay Gelsin....

[rapsodim]

hüseyin bey tşkr ederim fakat bu gonderdıgınız kod tek kayıt ıcın tum database ilgili alanlarına nasıl uygularım.

[husonet]

Döngülerin sihrinden yararlanarak

Kolay Gelsin...

[rapsodim]

o sihiri bulmaya çalışayım tekrar teşekkür ederim.

[ASE]

ilk önce first der ilk kayda gidersin sonra tablo sonuna kadar next dersin olur biter

[onaydin]

sql marifetiyle

Kod: Tümünü seç

SELECT ALAN_NO,DEGER=(REPEAT('0',15-LENGTH(TUTAR)))||TUTAR FROM "DBA"."table"

[rsimsek]

Kullanılan select yazımı istenen veritabanında geçerli olmayabilir.. Çünkü veritabanı belirtilmemiş... Kurallar pek havada kaldığından olsa gerek

Aşağıdaki kod ile halledebilirsin.

Kod: Tümünü seç

...
Table1.First;
while not Table1.EOF do
begin
  Table1.Edit;
  Table1.FieldByName('ALAN').AsString := 
      copy('000000000000000', 1, 15 - length(trim(Table1.FieldByName('ALAN').AsString)) + trim(Table1.FieldByName('ALAN').AsString);
  Table1.Post;
  Table1.Next;
end;
...

[mussimsek]

Kurallar pek havada kaldığından olsa gerek

kendisi kaybeder abi Ben sürekli tekrarlıyorum. Hatta bazı üyelerimiz ara sıra nükte bile yapıyor, Bak admin şimdi şöyle söyleyecek diye

Veritabanını söylese belki de çok daha spesifik, çok daha güzel bir çözüm bulacak. Bu tip kuralları artık hatırlatmaktan bıktım. İsteyen yazsın, isteyen yazmasın. Ama Forum kurallarında asla taviz yok

Kolay gelsin.

[rapsodim]

[Error] Unit1.pas(36): Incompatible types: 'String' and 'Integer' şeklinde hata veriyor yazdıgınzı kod bende paradox database kullanıyorum.

Table1.First;
while not Table1.EOF do
begin
Table1.Edit;
Table1.FieldByName('referans').Asinteger :=
copy('00000000000', 1, 11 - length(trim(Table1.FieldByName('referans').Asstring)) + trim(Table1.FieldByName('referans').Asstring);
Table1.Post;
Table1.Next;
end;

[mege]

[Error] Unit1.pas(36): Incompatible types: 'String' and 'Integer' şeklinde hata veriyor yazdıgınzı kod bende paradox database kullanıyorum.
Table1.FieldByName('referans').Asinteger :=
copy('00000000000', 1, 11 - length(trim(Table1.FieldByName('referans').Asstring)) + trim(Table1.FieldByName('referans').Asstring);

hatan çok belli integer alana string yazıyorsun. o alanı database desktop ile stringe çevirip ondan sonra dene birde 'refernans'.AsString olucak tabi

[husonet]

Siz integer alana String bir veri atamaya çalışıyorsunuz bu hatayı vermesi normal.

Kolay Gelsin...

[husonet]

Vay Mege Dostum Zamanlamaya bak