text dosya ya nasıl ekleme yapılır

[ozanda]

A730,255,2,2,2,3,N,"@STOKADI,1,24@"
B350,155,2,E30,2,2,60,B,"@BARKODU,1,12@"
A785,142,2,4,3,3,N,"@FIYAT1,7,2@TL"
A100,30,1,1,1,1,N,"@TARIH"
A600,060,2,1,2,1,N,"@BR4FIYAT1,12,2@TL"
A600,060,2,1,1,1,N,"@BIRIM FIYATI:@"


elimde boyle bır barkod yazıcı dızaynı var ve verı tabanından gereklı alanları cekıyorum fakat text dosyanın ıcındekı yerlere nasıl yazacagamı bılmıyorum yardımcı olursanız sevınırım

[Battosai]

Aşağıdaki method ile DBGrid de görünen verileri Dosya parametresi ile belirteceğin dosyaya virgül ile ayrılmış olarak kayıt edecektir. Bu kodu kendine göre değiştirmek sana kalmış...

Kod: Tümünü seç

Procedure SaveAsCsv(DGrid:TDBGrid;Dosya:string);
var
csv:TStringList;
i:integer;
s:string;
satir:string;
yer:TBookmark;
Begin
 with DGrid.DataSource.DataSet,DGrid,csv do
 Begin
 try
  Screen.Cursor:=crHourGlass;
  csv:=TStringList.Create;
  yer:=DGrid.DataSource.DataSet.Bookmark;
  First;
  DisableControls;
  satir:='';
  while not Eof do
   Begin
      satir:='';
       for i := 0 to Columns.Count-1  do
        Begin
        if Dgrid.columns[i].visible then
         Begin
         s:=Columns[i].Field.Text;
          if Columns[i].Field.DataType=ftFloat then
           Begin
              s:=FormatFloat('#,##0.00',StrToFloatDef(s,0));
           End;
          if Columns[i].Field.DataType=ftInteger then
            Begin
              s:=FormatFloat('#,##',StrToFloatDef(s,0));
            End;
            satir:=satir+s+',';
          End;
        End;
    Add(satir);
    Next;
   End;
   csv.SaveToFile(dosya);
 finally
   Screen.Cursor:=crDefault;  
   FreeAndNil(csv);
   DGrid.DataSource.DataSet.Bookmark:=yer;
   EnableControls;
 end;
 End;
End;

--------------

Kod: Tümünü seç

SaveAsCsv(DBGrid1,'C:\barkoddizayn.txt');