Maskedit otomatik artan satı

[master_20]

Merhaba arkadaşlar. geliştirdiğim bir program üzerinde bir tane artan numaram var PC0000000001 şeklinde yani başlangıcı PC olacak sonu artacak. ama ben kayıt esnasında toplamda 12 hane görmek istiyroum. 1 den başlasam arttırarak gitsem yapabiliyroum herkes gibi ama bu 12 hane olması sorununu çözemedim. yardımlarınız bekliyroum

[hi_selamlar]

Kod: Tümünü seç

var s : string;
s:='ADP';
s=DupeString(s,5);
//s='ADPADPADPADPADP'

Aklıma ilk gelen.. length ile artan sayının uzunluğunu alıp nu ekle dene.

Bir fonksiyon daha vardı ama aklıma gelmedi. O dahada basit.

heee buldum galiba...

Kod: Tümünü seç

var
  text, line : string;
begin
  text := 'Deneme mesajım..';
  line := StringOfChar('-', Length(text));

  ShowMessage(text); 
  ShowMessage(line);
end;

kolay gelsin.

[SimaWB]

Bu şekilde deneyebilirsiniz:

Kod: Tümünü seç

Format('PC%0.10d', [Sayi]);

Böylece "Sayi"nın başında hep PC yazar ve sonrasında 10 hane sayı olur