1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
| while not tblASatz.Eof do begin sLineString := ''; sLineString := sLineString + 'A'; sLineString := sLineString + FillStr(tblASatz.FieldByName('Nr').AsString, 7, '0', taRightJustify); sLineString := sLineString + FillStr(tblASatz.FieldByName('Ordnungsbegriff').AsString, 13, ' ', taRightJustify); sLineString := sLineString + FillStr(tblASatz.FieldByName('Nutzer_Nr').AsString, 20, ' ', taLeftJustify); sLineString := sLineString + FillStr(tblASatz.FieldByName('art').AsString, 1, '0', taRightJustify); sLineString := sLineString + FillStr('', 86, ' ', taRightJustify); Writeln(fExportFile,sLineString); tblASatz.Next; end; tblASatz.Close; |