Txt dosyası içinde satır ve karater sırasına göre işlemler.

[RADCoder]

Merhabalar arkadaşlar, bir program için satış işleminden sonra dosya atmaya çalışıyorum.
Orjinal program dosyası şu şekilde atılması gerekiyor:

Kod: Tümünü seç

1,00001,14,LIN,        3001,10:29:01
1,00002,34,VER,18/02/2005  ,KALPOS 01.00
1,00003,01,FIS,007     3001,000001
1,00004,03,TAR,27/02/2015  ,10:29
1,00005,04,SAT, 1.000016432,01      0.60
1,00006,38,BKD,155         ,        
1,00007,09,NAK,            ,        0.60
1,00008,08,TOP,            ,        0.60
1,00009,37,NWS,           1,
1,00010,11,SON,            ,           K

Ama benim oluşturduğum dosya satırdaki karakterleri doğru yan yana yazmakta ve gerektiği kadar boşluk oluşturamamakta.
Böyle bir dosyası standar textFile değişkeni ile alıp kayd etmeye çalışıyorum ama malesef oluşturduğum yazı dosyasındaki tüm harfler,
bir birine yapışık durumda geliyor..
Ben Oluşturduğumda:

Kod: Tümünü seç

1,00001,14,LIN,        3001,10:29:01
1,00002,34,VER,18/02/2005  ,KALPOS 01.00
1,00003,01,FIS,007   3001,000001
1,00004,03,TAR,27/02/2015  ,10:29
1,00005,04,SAT, 1.000016432,01  0.60
1,00006,38,BKD,155,        
1,00007,09,NAK,,0.60
1,00008,08,TOP, ,0.60
1,00009,37,NWS,1,
1,00010,11,SON,,  K

Yardımcı ola bilecek arkadaşlara çok teşekkür ederim..

[mrmarman]

FORMAT fonksiyonu istediğiniz işlemi yapar.

Cevapların devamını google ile derleyebilirsiniz.

Sizin dizilime göre bir örnek satır hazırladım. İnce ayarı kendiniz yaparsınız. nerede (-) eksi işareti koyduğuma, nerede araua (.) nokta işareti koyduğuma dikkat edin. nokta koyunca sol tarafa (0) doldurur (-) ekşi işareti koyunca rezerve edilen karakter sayısı kadar yer ayırıp sağa yanaşık yazar.

Kod: Tümünü seç

Var
  a,b,c: Integer;
  d,e,f,g : String;
begin
  a := 1;
  b := 2;
  c := 34;
  d := 'VER';
  e := '18/02/2005';
  f := 'KALPOS';
  g := '01.00';
  Memo1.Lines.Add(  Format('%d,%.5d,%.2d,%3s,%-12s,%-6s %-5s', [a,b,c,d,e,f,g]) );
end;

[RADCoder]

Cevabınız için teşekkür ederim, benim bulup düzenlediyim örnek koddan çok daha az çok daha basit bir yapı..
Tekrar teşekkürler..
Kolay gelsin.