home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / SPIDLA.PAS < prev    next >
Pascal/Delphi Source File  |  1998-12-04  |  535b  |  41 lines
  1.  
  2.  
  3. uses dos,crt,slova;
  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. begin
  13.  
  14. assign(aa,'pulo');
  15. soubory('*.DBF','pulo',0);
  16. assign(bb,'c:\trell\rescue\sklady.dat');
  17.  
  18. reset(aa);
  19. rewrite(bb);
  20. kus:='        ';
  21. while not(eof(aa)) do
  22. begin
  23.  readln(aa,rad);
  24.  rad:=bezmez(rad);
  25.  if not(rad='') then
  26.  begin
  27.  
  28.    rad:=del_ka(rad,kus);
  29.    rad:=lev_str(rad);
  30.  
  31.    write(bb,rad);
  32.  
  33.  end;
  34. end;
  35. close(aa);
  36. close(bb);
  37.  
  38.  
  39. erase(aa);
  40.  
  41. end.