Developing.ru

Код: Выделить всё

function prov(ss:string): string;
  var
  p: string;
  j: integer;
  c: array[0..4] of char;
  spec: set of char;
  begin
    p:= ss;
    spec:= ['\','/','-'];
    strpcopy(c,p);
   for j:= 1 to length(c) do
    begin
     if c[j] in spec then
      begin
       Result:= '0';
       break;
      end
     else Result:= ss;
    end;
  end;


procedure TForm1.Button1Click(Sender: TObject);
var
 f: TextFile;
 i,mes,kz: integer;
 s,zsum,ifl: string;
begin
kz:= 0;
 For i:= 0 to FIleListBox1.Items.Count-1 do
    begin
     AssignFile(f, FileListBox1.Items.Strings[i]);
     Reset(f);
     readln(f,s);
     ifl:= copy(s,2,3)+'.dbf';
     mes:= strtoint(copy(s,19,2));
   if length(inttostr(FileListBox1.Items.Count)) = 2 then
     ifl:= 'P'+inttostr(FileListBox1.Items.Count)+copy(s,19,2)+ifl
        else ifl:= 'P'+'0'+inttostr(FIleListBox1.Items.Count)+copy(s,19,2)+ifl;
     zsum:= copy(s,78,3)+' '+copy(s,81,3)+','+copy(s,84,2);
   if copy(zsum,1,2) = '00' then zsum:= copy(zsum,3,8)
       else zsum:= copy(zsum,2,9);
     Label4.Caption:= 'Çàãàëüíà ñóìà: '+zsum;

Dbf1.TableName:= ifl;
Dbf1.FieldDefs.Add('MES',ftSmallInt,0,false);
Dbf1.FieldDefs.Add('NSC',ftInteger,0,true);
Dbf1.FieldDefs.Add('FIO',ftString,50,true);
Dbf1.FieldDefs.Add('SUMMA',ftFloat,0,true);
Dbf1.CreateTable;
Dbf1.Active:= true;
Dbf1.Edit;

While not Eof(f) do
  begin
   readln(f,s);
Dbf1.FieldByName('MES').AsInteger:= mes;
Dbf1.FieldByName('NSC').AsInteger:= strtoint(prov(copy(s,15,5)));
ShowMessage(inttostr(length(TrimRight(copy(s,46,100)))));
Dbf1.FieldByName('FIO').AsString:= TrimRight(copy(s,46,100));
Dbf1.FieldByName('SUMMA').AsFloat:= StrTofloat(copy(s,39,7))/100;
Dbf1.Append;
kz:= kz+1;
  end;

Dbf1.Active:= false;
Label3.Caption:= 'ʳëüê³ñòü çàïèñ³â: '+inttostr(kz);
end;
end;