home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / TRAMBUS.PAS < prev    next >
Pascal/Delphi Source File  |  1999-01-20  |  993b  |  74 lines
  1.  
  2.  
  3. uses dos,crt,slova,matika;
  4.  
  5. var i,j,par,k,l,m,n,o,coko : integer;
  6.     radk,rad,kus,sfs,para,parb : string;
  7.     aa,bb,cc,ee,ff,gg:text;
  8.     znak:char;
  9.  
  10.  
  11.  
  12.  
  13.  
  14. begin
  15.  
  16. rad:='a.dbf';
  17.  
  18. assign(aa,'C:\trell\convert.dll');
  19. assign(bb,'trambus');
  20.  
  21. sfs:=fsearch('C:\trell\convert.dll',GetEnv('path'));
  22. if not(sfs='') then
  23. begin
  24.  
  25.  
  26. reset(aa);
  27. rewrite(bb);
  28.  
  29. j:=0;
  30. while not(eof(aa)) do
  31. begin
  32.  readln(aa,rad);
  33.  k:=0;
  34.  if ord(rad[0])>1 then
  35.  begin
  36.    if (ord(rad[1])=196) or (rad[1]='-') then j:=j+1;
  37.  end;
  38.  if j=4 then
  39.  begin
  40.    if ord(rad[0])>43 then
  41.    begin
  42.      kus:='';
  43.      for i:=27 to 44 do kus:=kus+rad[i];
  44.      k:= najdi('  0,00 K',kus,'0');
  45.      if k=0 then k:= najdi('  0.00 K',kus,'0');
  46.  
  47.    end;
  48.  end;
  49.  if k=0 then writeln(bb,rad);
  50. end;
  51.  
  52. close(bb);
  53. close(aa);
  54.  
  55.  
  56. reset(bb);
  57. rewrite(aa);
  58. while not(eof(bb)) do
  59. begin
  60.   readln(bb,rad);
  61.   writeln(aa,rad);
  62. end;
  63. close(bb);
  64. close(aa);
  65.  
  66. erase(bb);
  67.  
  68.  
  69. end;     { konec dll }
  70.  
  71.  
  72.  
  73.  
  74. end.