[ Rode @ 06.02.2009. 19:17 ] @
Pocetnik u Delphiju moli dobre ljude kako kreirati fajl prodaja.INP u katalogu Temp
[ savkic @ 06.02.2009. 20:59 ] @
> Pocetnik u Delphiju moli dobre ljude kako kreirati fajl prodaja.INP u katalogu Temp

Moraš razjasniti pitanje, većina nas ne zna šta je prodaja.INP ili katalog Temp. Ako je tvoje pitanje kako napraviti neki tekstualni fajl na disku, možeš koristiti TStringList, npr:

Code:

var
  s: TstringList;
begin
  s.Create;
  try
    s.Add('Proba');
    s.SaveToFile('C:\Proba.txt');
  finally
    s.Free;
  end;
end;
[ juha5803 @ 07.02.2009. 07:21 ] @
U pitanju su datoteke sa fiskalni printer ME PROFESSIONAL. Nije problem samo kreiranje datoeke to je obični txt samo što mu je nastavak promjenjen u inp.

Code:

  AssignFile(logfile1,'c:\temp\prodaja.inp');

   if not(FileExists('c:\temp\prodaja.inp')) then begin
    ReWrite(logfile1);
   end else begin
    Erase(logfile1) ;
    ReWrite(logfile1);
   end ;


Za dodavanje komandi možeš koristiti

Code:

Append(logfile1);
  Writeln(logfile1,('S,1,______,_,__'+SP+Copy(DM.cdsArtiliNaziv.AsString,1,31)+SP+ DM.cdsArtikliCIJENA.AsString+SP+DM.cdsProdajaKOL.asString+';1;1;2;0'+sp+DM.cdsArtikliPLU.AsString +sp))  ;


"SP" je definisan separator tj ";"

A zaklučenje računa
Code:

   Writeln(logfile1,( 'T,1,______,_,__;'));
   CloseFile(logfile1) ;


Sa varijacijama na temu zavisno od vrste plaćananja itd...


Ovo gore ti rješava malo toga jer ti ima i drugih problema od prostog kreitanja inp datoteke